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1. 


2.2 


2.3 


ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK 1S CAPABLE OF PERFORMING SEEKS. THAT THE ACCESS TIMES 
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY. AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


REQUIREMENTS 


EQUIPMENT 


POP-11 PROCESSOR 
16K MEMORY 

TELETYPE 

PROGRAM LOADING DEVICE 

KW11-L OR KW11-P (THE KW11-P IS REQUIRED FOR THE TIMING TESTS) 
RH11 OR RH70 WITH 1 - 8 RPO4/S/76 DISK DRIVES 


PRELIMINARY PROGRAMS 


satticinater™ DISKLESS CONTROLLER TEST 
ART 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC-11-02R JH) 


RPO4Y/5/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJ1) 
PART 2 (MAINDEC-11-DZRJJ) 


MEDIA 


THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-BIT OR 18-BIT 
MODE. DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 
WILL NOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 
PACKS. 


LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP' MEDIA USING THE 
ASSOCAITED LOADER. THE PROGRAM MAY BE INCLUDED IN AN ‘XXDP* CHAIN. 

IF THE PROGRAM 1S BEING RUN ON A PROCESSOR WITH 16K, THE ‘XXDP' 

LOADER WILL NOT BE PRESERVED. THE PROGRAM MUST BE RUN ON A SYSTEM 
WITH 20K OR MORE TO PRESERVE THE ‘XXDP' LOADER. THE ‘ABSOLUTE’ LOADER 
WILL BE PRESERVED IN A 16K SYSTEM. HOWEVER. 


as 
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STARTING PROCEDURE 


STARTING ADDRESSES 


200 NORMAL STARTING ADDRESS 

204 SELECT OPERATING PARAMETERS 
210 SELECT RH11-RH70 ADDRESSES 
214 COMBINATION OF 204 AND 210 


NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 
PROGRAM 1S INITIALLY STARTED; THESE STARTING ADDRESSES ARE 
TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 


OPERATOR ACTION 


1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

2. LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED 

3. BRING DRIVE(S) TO ONLINE STATE. WRITE ENABLED. 
AND LOCKED ON PORT. 

4. LOAD ADDRESS 200. 

5. SET ytsy (SEE SECTION 5. ) 

. PRESS STAR 


TYPE A ‘CONTROL C* ON THE KEYBOARD TO RETURN THE PROGRAM TO 
COMMAND ENTRY MODE. 


PROGRAM ACTION 
IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 


PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 


CONSTRUCTIONS HAVE BEEN ADOPTED. 


NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 


NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 


<CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 


«. ><CR> PERIOD 


A STATEMENT TERMINATOR: WHEN TYPED AT THE 

END OF A LINE (LEGAL ON ALL LINES) IT TELLS 
THE PARAMETER STRING INTERPRETER (PSI) THIS IS 
| _ OF CHANGES TO THE CURRENT PARAMETER 
STRING. 


«.. »<CR> PERIOD PERIOD 


THE "PERIOD PERIOD’ TERMINATOR 1S TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 


THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 
THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THIS TYPEOUT, DO NOT 
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES: INSTEAD 
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4.3.2 


THE START OF TEST EXECUTION. 
«, »<CR> COMMA 


THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
AND TEST NUMBERS. 


</> SLASH 


A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 
NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 
MODIFICATION. 


« wD CONTROL-U 


DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE “CONTROL KEY" 
(CTRL) AND THEN STRIKING THE “U". 


& RUBOUT 


DELETE THE LAST CHARACTER FROM THE INPUT STRING 
TYPED BY STRIKING THE “RUBOUT" KEY. WHICH WILL 
BE ECHOED BY A BACKSLASH ( ) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCH SELECTION 


STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SW<O7>=1 WILL RESULT IN ENTERING THE “CONTROL SWITCH 
SETTING" MODE. THUS. ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF "C. SHR”. 


CONTROL SWITCH SELECTION EXAMPLES: 
EXAMPLE #1 


SET SW<07>=0 
C. SWR=000000 / 400. . 


EXAMPLE #2 


SET SW<07>=0 
C. SWR=000000 / 220. 
C. SWHR=000000 / 220.. 


RH11 - RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RPCS1). 
VECTOR ADDRESS. AND PRIORITY LEVEL OF THE RH11-RH70. 

IF THE DEFAULT VAULE OF THE BUS ADDRESS DOES NOT RESPOND 
(TIMES OUT) WHEN ADDRESSED. AN ERROR IS REPORTED. 

AFTER THE ERROR 1S REPORTED ONE OF TWO COURSES OF ACTION 
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WILL BE TAKEN: 
1. IF THERE 1S A MONITOR -- RETURN TO THE MONITOR 
2. IF THERE ISN'T A MONITOR -- ASK FOR NEW ADDRESSES 
STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ADDRESS OF THE RH11 OR RH70 AND THE VECTOR 
ADDRESS. 
THE PROGRAM ALLOWS THE ADDRESSES TO BE CHANGED ON WHEN THE 
PROGRAM IS FIRST STARTED. STARTING ADDRESSES 210(8) AND 214(8) 
ARE TREATED AS ADDRESSES 200(8) OR 204(8) RESPECTIVELY. 
ADDRESS SELECTION EXAMPLES 
EXAMPLE #1 

RPCS1=176700 / 177200. 
EXAMPLE #2 

RPCS1=176700 7 176300<CR> 

RHVEC=254 / 260<CR> 

RHPRIO=5 7 6. 
EXAMPLE #3 


RPCS1=176700<CR> 
RHVEC=254 / 260. 


EXAMPLE &4& 


RH11/7RPO4Y FAILED TO RESPOND TO ADDRESSING 
RPCSi1 ERR PC 

176300 XXXXXX 

RPCS1=176300 / 176700. 


EXAMPLE #5 


RPCS1=176700 / 1776 67 6300<CR> 
RHVEC=254<CR> 
RHPR 10=5<CR> 
RPCS1=176300. 


DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED. THE TESTS TO BE EXECUTED. 
AND THE PARAMETERS TO USE. 


EACH TEST CONTAINS TWO SETS OF CYLINDER LIMIT PARAMETERS. PARAMETERS 
‘LC’ AND ‘FC’ ARE USED BY RPO4/S DRIVES AND PARAMETERS ‘LC'* AND 


SEQ 0006 





H 1 
MD-11-DZRJA-B RPO4Y/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 11 


DZR JAB. P11 


06-SEP-77 16: 20 


133.1 


‘FC'' ARE USED BY RPOG DRIVES. THE PROGRAM DETERMINES WHICH DRIVE 
1S BEING TESTED AND SELECTS THE CORRECT SET OF CYLINDER LIMIT 
VALUES. IF THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH 
CONTAINS BOTH RPO4/S AND RPO DRIVES. THE OPERATOR MUST CHANGE 
BOTH SETS OF CYLINDER LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 
ALL DRIVES TESTED. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING 1S A TABLE OF TERMS USED BY THE PSI. 


7 REPEATS (ITERATIONS) 

. FIRST CYLINDER ADDRESS FOR RPO4/S'S 
7 LAST CYLINDER ADDRESS FOR RPO4/5'S 
“FC'" FIRST CYLINDER ADDRESS FOR RPO6'S 
“LC'" LAST CYLINDER ADDRESS FOR RPO6'S 
— INCREMENT CYLINDER 

vr FIRST TRACK ADDRESS 

ste LAST TRACK ADDRESS 

“er INCREMENT TRACK 

“3° FIRST SECTOR ADDRESS 

“3° LAST SECTOR ADDRESS 

“PAT” PATTERN (USED FOR DATA TEST) 

“WOX" WORD OF PATTERN O WHERE X IS 1 TO 16 


x"s" ALL SEEK TESTS (TESTS 0 - 10) 

fe me ALL TIMING TESTS (TESTS 12 - 15) 
x"A" ALL ADDRESS TESTS (TESTS 16 - 17) 
x"p" THE DATA TEST (TEST 20) 

x"E" THE EXERCISER (TEST 21) 


x USED BY THE OPERATOR TO SELECT TEST GROUPS 
NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WOX) SELECTION. “PAT” WILL BE SELECTED 


BY A BIT (1. €. 001000(8)=PATTERN 9) AND “WOX" WILL BE IN OCTAL 


SPECIAL CASES OF CONTROL CHARACTERS 


iF <..> 1S TYPED WHILE A TEST 1S OPEN FOR MODIFICATION 
(<7>) AND OTHER TESTS IN THE “TEST COMMAND” STRING 
ARE TO BE MODIFIED. THE REMAINING TESTS WILL BE UNCHANGED. 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 210. TESTS 0-10, 
12-20 WILL BE RUN USING ALL AVAILABLE. ONLINE DRIVES. IF THE OPERATOR 
WISHES TO SELECT THE DRIVES TO BE TESTED. THE TESTS TO BE PERFORMED. 
OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY BE ENTERED 

BY TYPING A ‘CONTROL C' OR BY STARTING THE PROGRAM FROM EITHER 
LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 
DRIVE(S)= 
THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 
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DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE 
THE PARAMETERS (INITIAL CYLINDER ADDRESS. FINAL CYLINDER ADDRESS, ETC. ). 
THE USER WOULD TYPE ‘3<CR*' WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 


THE TRANSACTION APPEARS AS FOLLOWS: 
DRIVE(S)=3<CR> 
TEST= 


THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE, 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<.> (THE ‘COMMA’ 
SEPARATES ENTRIES), 11¢. ><CR> ('PERIOD' ‘CARRIAGE RETURN’ - 

END OF CHANGES, START TEST EXECUTION. ) 


1T NOW LOOKS LIKE THIS 


DRIVE (S)=3<CR> 
TEST=2-7, 11. <CR> 


IN THE NEXT EXAMPLE, IT 1S ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS 3 AND 10. 


THE TRANSACTION WOULD BE AS FOLLONS: 


DRIVE (S)=4<CR> 
TEST= 


THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW: 


OR IVE(S)=4<CR> 
TEST=1, 374-7, 10711<CR> 


NOTICE THIS SAYS SELECT TEST 1. CONTINUE<, >; SELECT TEST 3. OPEN</); 
SELECT TESTS 4-7, CONTINUE<.>; SELECT TEST 10. OPEN</>; SELECT TEST 
11, END OF INPUT <. >. 


THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 


(THE ENTIRE TRANSACTION 1S REPEATED FOR CLARITY) 


DRIVE (S)=4<CR> 
TEST=1, 374-7, 10/11<CR> 
TEST 3 
P=X / ;WHERE X IS ITERATION 


THE NEW VALUE FOR 'R' MAY BE ENTERED. TERMINATING THE ENTRY WITH 
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST: TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DRIVE(S)=4<CR> 
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TEST=1, 374-7, 10711<CR> 
TEST 3 


R=1 7 <CR> +00 NOT ALTER-BUT CONTINUE 
FC=N 7 ;WHERE 'N' IS FIRST CYLINDER ADDRESS 


1F THE OPERATOR DOES NOT WISH TO CHANGE ‘FC’. THE FOLLOWING OCCURS: 


DRIVESS)=4<CR> 
TEST=1, 374-7, 10711. <CR> 
TEST 3 


S) 

R=1 7 <CR> D0 NOT ALTER THIS LINE BUT CONTINUE 

iokak aes D0 NOT ALTER THIS LINE BUT CONTINUE 
= 


THE PROGRAM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST 
CYLINDER ADDRESS IN THIS CASE USING 410 AS THE EXAMPLE. THIS IS 
WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS 

OPENED. TO CHANGE THE VALUE TO ‘20'. THE NEW VALUE IS TYPED 
FOLLOWED BY A ‘PERIOD’ TERMINATOR (<. ><CR>). 


THE TOTAL TRANSACTION AND RESPONSE: 


DRI VE(S)=4<CR> 
TEST=1, 374-7, 10711<CR> 


TEST 3 

R=1 7 <CR> 

FC=0 7 <CR> 

LC= 410 7 20. <CR> 
TEST 10 

nazi 7 


THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM 1S WAITING FOR CHANGES TO TEST 10'S PARAMETERS 


DRIVE (S)=4<CR> 
TEST 3 
R=1 7 <CR> 
FC=0 7 <CR> 
LC= 410 7 20. <CR> 
TEST 10 
R=1 7 10. <CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ‘PERIOD’ ‘CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE(S)= 


SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A ‘PERIOD PERIOD’, 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 

CHANGES. THAT 1S TO SAY. AFTER THE ENTRY FOR DRIVE SELECTION. A 

<,><CR> WILL CAUSE THE TEST NESSAGE TO BE REPEATED AND FURTHER 

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 
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THE PROGRAM, A ‘PERIOD PERIOD’ MUST BE TYPED. 


IF A SINGLE PERIOD’ IS TYPED WHILE ORIVE OR TEST NUMBERS ARE BEING 
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY. A ‘PERIOD 
PERIOD’ MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 
CHANGE MODE TO GO TO EXECUTION. 


DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 


DRIVE=4. <CR> 


EXAMPLE #2 


DR | VE=0<CR> 
TEST=1-5. <CR> 


EXAMPLE #3 


DR IVE=2<CR> 
TEST=1-5, 6/7710/7<CR> 
TEST 6 


R=1 7 <CR> 
FC=0 / 10. <CR> 


TEST 7 
R=1 7 5O<CR> 
FC=0 7 <CR> 
LC=410 7 50.. <CR> 


EXAMPLE &4 


OR 1 VE=0<CR> 
TEST=S.E. <CR> 


EXAMPLE #5 


OR I VE=1<CR> 
TEST=S/D<CR> 
TEST O 
R=10 7 <CR> 
FC=0 7 10.. <CR> 


+SELECT DRIVE #4, TERMINATE AND 
BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
+ PARAMETERS 


;SELECT DRIVE #0 AND MAKE CHANGES ".” 
RUN TEST 1 THRU 5 ONLY. USE DEFAULT 
;PARAMETERS AND TERMINATE AND EXECUTE. “ 


; SELECT DRIVE #2 AND MAKE CHANGES "," 

RUN TEST 1-5 WITH DEFAULT PARAMETERS, OPEN 

; TEST 6.7 AND 10 FOR CHANGES 

;LEAVE ‘R* AS IS AND MOVE TO NEXT PARAMETER 
4 aes ADDRESS TO 10. END CHANGES 


50 ITERATIONS. MOVE TO NEXT PARAMETER 

+00 NOT CHANGE ‘FC’ CYLINDER ADDRESS BUT CONTINUE 
+ TEST 10 1S STILL PENDING AND WILL BE 

RETAIN ITS PRESENT PARAMETERS. 


>SELECT DRIVE #0 AND MAKE CHANGES 
;RUN ALL SEEK TESTS AND THE EXERCISER 


;RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
; THE DATA TEST (WITH DEFAULT PARAMETERS) 
RUN WITH 10 ITERATIONS 

+ CHANGE FIRST CYLINDER ADDRESS 

AND START EXECUTION 
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TESTS 1 - 10 WILL RETAIN THEIR PREVIOUSLY 
ASSIGNED PARAMETERS. 


EXAMPLE #6 


DR IVE=1<CR> 
sas naa OPEN THE SEEK TESTS (TESTS 0-10) 


TO 
watt 7 100. <CR> +CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 
“ett 7 1000.<CR> ;CHANGE ‘R' TO 1000 ITERATIONS. MOVE TO NEXT TEST 


R=1 7 10<CR> ;CHANGE ‘'R' TO 10 ITERATIONS. GO TO NEXT PARAMETER 
FC=0 7 SO<CR> +CHANGE 'FC' TO 50, GO TO NEXT PARAMETER 
att 3 7 51. <CR> +CHANGE ‘LC’ TO 51. GO TO THE NEXT TEST 
. “— ;MOVE TO NEXT TEST 
R=1.. <CR> ;USE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION 
EXAMPLE #7 
DR IVE=1<CR> 
oe SELECT AND OPEN THE DATA TEST 
t 
R=1 7 1000<CR> ;D0 1000 ITERATION OF TEST PATTERN 
FC=0 / 10<CR> ;#8 ON CYLINDER 10, TRACK 2, SECTOR 4 
LC=410 7 10<CR> 
FC*’=0 7 <CR> +RPOG PARAMETER 
LC*=814 7 <CR> +RPO6 PARAMETER 
1C=64 7 O<CR> 
FT=0 / 2<CR> 
LT=18 7 2<CR> 
IT=1 7 <CR> 
FS=0 7 4<CR> 


LS=22 7 4<CR> 
PAT=177777 / 400... <CR> ;RUN WITH PATTERN &8 


EXAMPLE &8 


OR I VE=1<CR> ;USE THE SAME PARAMETERS AS IN EXAMPLE 
TEST=D/<CR> :#7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0). 
TEST 20 
R=1000 7 <CR> 
FC=10 7 <CR> 


FC'=0 / <CR> 
LC'=814 7 <CR> 
1C=0 / <CR> 
FT=2 / <CR> 
LT=2 7 <CR> 
IT=1 7 <CR> 
FS=4 7/7 <CR> 
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LS=4 / <CR> 

PAT=000400 / 4O1<CR> ;RUN WITH PATTERNS #8 & #0 (O=OPERATOR INPUT) 
WO1=165555 / 125252<CR) ; FIRST WORD OF PATTERN O 
WO2=133333 7 en a SECOND WORD OF PATTERN O 


EXAMPLE #9 


DRI VE=0, 1,4<CR> 
TEST=0-5/<CR> 
TEST 


-) START EXECUTION 


+ TEST ORIVES 0.1, AND 4 IN SEQUENCE 
;CHANGE TEST 5 


0 
R=10 7 <CR> 
FC=0 / <CR> 


LC=410 7 1<CR> 


+; CHANGE LAST CYLINDER FROM 410 TO 1 


FC'=0 7 <CR> 
LC*=814 7 2..<CR>  ;CHANGE THE LAST CYLINDER FOR ALL RPO6'S TO 


+2. START PROGRAM EXECUTION. 


SWITCH SETTINGS 


OPERATIONAL SWITCH SETTINGS 


WITH SW<15: 0>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST 
THE SWITCH SETTINGS ARE: 


SW<15>= 


SW<14>=1.. 


1... HALT ON ERROR 
. LOOP ON TEST 


SW<13>=1... INHIBIT ERROR TYPEOUTS 

SW<11>=1... INHIBIT ITERATIONS 

SW<10>=1... RING BELL ON ERROR 

SH<09>=1... LOOP ON ERROR 

SH<O8>=1... PRINT ERROR MESSAGE ON LINE PRINTER 
SW<07>=1... READ CONTROL SWITCH SETTINGS FROM TTY 
SW<06>=1... INHIBIT TIME REPORTS (TESTS 12-15) 
SW<O5>=1... REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
SW<O4>=1... INHIBIT WRITES (TEST 20) 

SW<O3>=1... INHIBIT WRITE CHECKS (TEST 20) 

SW<02>=1... INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
SH<O1>=1... INHIBIT SOFTWARE COMPARES (TEST 20) 


SW<00>= 


0 
1... PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11734) 


THE PROGRAM WILL DETERMINE THAT THE HAROWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
"SOFTWARE' SWITCH REGISTER 1S LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

1S AT A HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT. THE 
‘SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
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5.2 


TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. ‘RUBOUT’ AND 
“CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINOS ALL 16 SWITCHES IN THE 
‘UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
Jima AND THE PROCEDURES DESCRIBED ABOVE MUST 


CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
TO ENTER THE CONTROL SWITCH SETTING MODE PLACE SW<07>=1 


BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 


(C. SHR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
AND A CARRIAGE RETURN. 


THE C. SWR SETTINGS ARE: 


C. SWR<15>=0... WRITE PACK BEFORE TESTING (TEST16) 
=1... INHIBIT WRITE PACK BEFORE TESTING (TEST16) 
C. SHR<14>=0...NO STALL BETWEEN DRIVE FUNCTIONS 
=1... STALL AFTER EVERY DRIVE FUNCTION 
C. SWR<13>=0... USE SPECIFIC STALL TIMES 
=1...USE RANDOM STALL TIMES 
C. SWR<12>=0...NO INCREMENTING STALLS IN TEST4 
=1... PERFORM INCREMENTING STALLS IN TESTY 
C. SHR<O8>=0...DO0 IMPLIED SEEKS WITH DATA TRANSFERS 
=1...00 EXPLICIT SEEKS BEFORE DATA TRANSFERS 
C. SHR<O7>=0... DO READ HEADER AND DATA COMMANDS IN TESTS 0-6 
=1...D0 EXPLICIT SEEK COMMANDS IN TESTS 0-6 
C. SHR<06>=0... 60 HZ POWER SOURCE 
=1...50 HZ POWER SOURCE 
C. SHR<O5>=0... ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER) 
=1... INHIBIT SOFTWARE TIMEOUTS(DISABLE WATCHDOG TIMER) 
C. SHR<O0>=0... OPERATE IN 22 SECTOR (16 BIT) MODE 
21... OPERATE IN 20 SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C. SWR<15: 00>=0. 
REFER TO 4.3.1 FOR C. SWR SELECTION 
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THERE ARE ANUMBER OF ERRORS “~ ° CAN OCCUR IN THIS PROGRAM. 


WHEN AN ERROR 1S ENCOUNTERED, THE CALL TO THE ERROR ROUTINE 


16:22 PAGE 18 


1S MADE AND IF SW<13>_ 1S NOT SET. AN ERROR MESSAGE PERTAINING 


TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 


THE FOLLOWING: 


1. AN ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 


THESE ERRORS WILL BE DETECTED BY THE RH11/RPO4/5/6 DRIVER 
THERE ARE TWO CLASSES OF DRIVER ERRORS: THOSE THAT 

CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE 
INFORMATION TO BE RETURNED TO A “DATA PARAMETER BLOCK” 
(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL BE 
REPURTED BY ERROR CALLS (ENT'S) 1-5 WITHIN THE DRIVER. 

THE SECOND CLASS WILL PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 


NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO “DISK” OR “DATA” FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 

FATAL ERRORS 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS. THEN THE PROGRAM 


WILL ABORT THE TEST AND GO TO THE END OF PROGRAN. 
ERROR RECOVERY 
PRETEST ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 


ADDRESSES FOR TESTING OR RETURN TO MONITOR. 
NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 
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6.2.3 


8.2 


8.3 


FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


RESTRICTIONS 


THE PROGRAM WILL TEST THE ORIVES IN EITHER 16 BIT MODE OR IN 18 

BIT MODE DEPENDING ON THE SETTING OF ‘S.SWR<OO>'. IF ‘C. SWR<O0>' 

1S 0. ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE; IF ‘C. SWR<OO> 
1S 1, ALL OF THE ORIVES WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM. 

ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 


BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED 
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES A 

PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED 

BY THE PROGRAN. 


MISCELLANEOUS 


EXECUTION TIME 


THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MAKE ONE PASS WITH 
RPOW/S DRIVES AND APPROXIMATELY 16.5 MINUTES TO A PASS WITH RPO6 
DRIVES. THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10, 12-20) 
AND DEFAULT TEST PARAMETERS. 


STACK POINTER 
THE STACK POINTER IS INITIALLY SET TO 1100. 
TIMING TESTS (TESTS 12-15) PRINTOUTS 


AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK. AND THE AVERAGE OF ALL OF THE 
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 

THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM 

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


NOTE: THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS. 
THIS STALL TIME 1S NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
THE 2 MILLISECOND STALL BETWEEN SEEK ORDERS IS SPECIFIED BY 
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8.3.1 


8. 3. 2. 


THE RPOY VENDOR. THE SEEK TIMES SPECIFIED FOR THE RPOY 
ARE POSITIONER MOVEMENT TIMES ONLY AND ARE NOT A MEASUREMENT 
OF EFFECTIVE SEEK TIME. 


TIMING TOLERANCES 
1. TEST 12 -- ROTATIONAL SPEED TIMES 


60 HZ 

MINIMUM=16340 US 
MAX IMUM=17000 US 
NOMINAL=16670 US 


50 HZ 

MINIMUM=16250 US 
MAXIMUM=17090 US 
NOMINAL=16670 US 


2. TEST 13 -- ONE CYLINDER SEEK TIMES 


MAX IMUM=10000 US 
NOMINAL=7000 US 


3. TEST 14 -- ACCESS TIME MEASUREMENT 


MAX IMUM=30000 US 
NOMINAL=28000 US 


4. TEST 15 -- MAXIMUM SEEK TIMES 


MAXIMUM=52000 US 
NOMINAL=50000 US 


TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE #1 


ROTATIONAL SPEED TIMES 
MIN=16670 US 

MAX=16690 US 

AVG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
% FORWARD 
NIN=5350 US 
MAX=6920 US 
AVG=5550 US 409 SEEKS TIMED 
% REVERSE 
MIN=5140 US 
MAX=5960 US 
AVG=5430 US 410 SEEKS TIMED 


ACCESS TIME MEASUREMENTS 
x FORWARD 
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MIN=27770 US 
MAX=28640 US 
AVG=28230 US 128 SEEKS TIMED 


MAX=28550 US 
AVG=28220 US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
* FORWARD 

MIN=49990 US 

MAX=51980 US 

AVG=51010 US 128 SEEKS TIMED 
x REVERSE 

MIN=48120 US 

MAX=50650 US 

AVG=49340 US 128 SEEKS TIMED 


EXAMPLE #2 


ROTATIONAL SPEED TIMES 
MIN=16670 US 

MAX=16690 US 

AVG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
x FORWARD 
MIN=5470 US 
MAX=10940 US 3 ABOVE THE MAXIMUM OF 10000 US 
AVG=5830 US 409 SEEKS TIMED 
% REVERSE 
NIN=5040 US 
MAX=5970 US 
AVG=5330 US 410 SEEKS TIMED 


ACCESS TIME MEASURNENTS 
x FORWARD 
MIN=29730 US 
MAX=31620 US 73 ABOVE THE MAXIMUM OF 30000 US 
AVG=30320 US 128 SEEKS TIMED 
% REVERSE 
MIN=28620 
MAX=31230 US 128 ABOVE THE MAXIMUM OF 30000 LS 
AVG=30800 US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
% FORWARD 
MIN=53510 US 
MAX=54240 US 128 ABOVE THE MAXIMUM OF 52000 US 
AVG=54020 US 128 SEEKS TIMED 
% REVERSE 
MIN=52050 US 
MAX=54550 US 128 ABOVE THE MAXIMUM OF 52000 US 
AVG=52210 US 128 SEEKS TIMED 
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8.4 


END OF TEST 


WITH ALL SWITCHES ON A “O" AN “END OF PASS" MESSAGE WILL BE 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST” 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. 


PROGRAM DESCRIPTION 


THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL. 
TESTS O-7 & 11 WILL READ THE CYLINDER. TRACK, AND SECTOR INFORMATION 
FROM THE HEADER. USING A “READ HEADER AND DATA” COMMAND. 

THEN CHECK THE INFORMATION FOR VALIDITY. THUS. INSURING 

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE 
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK. THE ACCESS TINE. 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND 
TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 

THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL. 
Any 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 


THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 
THE LOWEST NUMBERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER. 
ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST 
SEQUENCE (TESTS 0-10,12-20) WILL BE PERFORMED ON EACH DRIVE BEFORE 
MOVING TO THE NEXT DRIVE IN SEQUENCE. ORIVE TO BE 
TESTED WILL BE TYPED AT THE BEGINNING OF EACH PASS. AN “END 
OF PASS" MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS. 
“ “END OF TEST" MESSAGE WILL BE TYPED AFTER TESTING ALL 

IVES. 


REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST. 


TEST O - RECAL/SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “LC”. AT 
THE COMPLETION OF BOTH COMMANDS. STATUS INDICATIONS ARE 
CHECKED TO ENSURE NO ERRORS OCCURRED. 


THE PARAMETEPS USED BY THE TEST ARE GIVEN BELOW: 


R ° 200 
LC ° 410 
LC’ ° 814 
FT ° 0 
FS - 0 
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9.2 


9.3 


TEST 1 - SEEK/SEEK TEST 
THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO "LC", “LT”, "LS" FOLLOWED BY A REVERSE SEEK CYCLE TO 
"FC", “FT", “FS". AT THE COMPLETION OF EACH SEEK. THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
100 

0 
128 

0 
256 
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TEST 2 - INCREMENTAL SEEK TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADDRESS FROM "FC" TO “LC” BY THE INCREMENT “IC”. 
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

"LC' REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL “NC” AND DECREMENTING BY “IC™ 

UNTIL "NC" IS LESS THAN “FC". AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


cr 
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TEST 3 - STEPPING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 

8. 16, 32,.64.128. AND 256. AT THE COMPLETION OF EACH SEEK 
COMMAND THE PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 
OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R ° 8 
FC - 0 
LC ° 256 
FC’ ° 0 
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9.5 


9.6 


9.7 


LC’ ° 256 
IC - 1 
FT - 0 
FS . 0 


TEST 4 - OSCILLATING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES FROM “FC" TO "NC" AND BACK 

TO "FC". “NC" STARTS AT “FC” AND INCREMENTS BY "IC" UP TO CYLINDER 
"LC", THEN IS DECREMENTED BY "IC" BACK TO CYLINDER "FC". AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 

EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST. 


~* 
im) 
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TEST 5 - CONVERGING/DIVERGING SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
SEEKS FROM “NC1" AND “NC2" RESPECTIVELY. “NC1" WILL BE INCREMENTED 
BY "IC" AND "NC2" WILL BE DECREMENTED BY “IC” UNTIL "NC1" IS 
GREATER THAN THE INITIAL VALUE OF “NC2" AND “NC2" IS 

LESS THAN THE INITIAL VALUE OF “NC1". AT THE COMPLETION OF 

EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

ENSURE PROPER OPERATION. "NC1" AND “NC2" DEFAULT TO 

“FC" AND "LC" RESPECTIVELY. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST 
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TEST 6 - SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 


IN THIS TEST A SEEK 1S DONE TO CYL “NC” THEN A SEEK TO 
NC+4 THEN NC4+1 THEN NC+3 THEN NC+2 THEN NC+5. NOW “NC” IS UPDATED 
BY "IC" AND THE ABOVE SEQUENCE 1S REPEATED UNITL “LC” | 
EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF “NC” 
1S "FC". AT THE COMPLETION OF EACH SEEK COMMAND THE 
PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
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9.8 


9.9 
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TEST 7 - RANDOM SEEK TEST 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC' 

"LC'. AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARANTERS ‘FT’ AND ‘LT’. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ° 5000 
FC ~ 0 
LC ” 410 
2 ° 0 
i. 814 
FT - 0 
LT - 18 


TEST 10 - SERVO SETTLE DOWN TEST 


THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

THE DRIVE 1S ON CYLINDER WHEN THE ORIVE INDICATES SEEK COMPLETE. 
RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘NC1' AND 'NCI+IC° 

('NC1" STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) SEEKS. 
"NC1' IS INCREMENTED BY VALUE ‘IC' AND THE SEQUENCE 1S REPEATED. 

THE TEST 1S COMPLETED WHEN ‘'NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


WHEN THE SEEK COMPLETES. THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
REGISTER (RPLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 

FOR THAT SECTOR. IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR 

1F THE POSITIONER 1S NOT ON CYLINDER CIF THE ORIVE 1S AN RPO4, THE 

OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US). THE DRIVE 

WILL REPORT A ‘WRU’ ERROR. (RPOS/6'S MAY ALSO REPORT ‘'NHS’ ERROR UNDER 
ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
CORRECTLY. THAT THE DRIVE 1S MALFUNCTIONING. OR THAT A PCAK WITH 
MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 


THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER TO DETERMINE 
WHETHER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSITION THE 
TEST 1S OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN 

THE FIRST 80% OF THE SECTOR CURRENTLY UNDER THE HEAD. THE TEST WILL 

TRY TO ADDRESS THE NEXT SECTOR. BASED ON OBSERVATION, THE PROGRAM 
Sr TO START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF 

T IME. 
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THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY 
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R . 1 
FC . 0 
LC - 410 
FC’ ° 0 
Lc * ° 814 
IC - 100 
FT . 0 


TEST 11 - ALL SEEKS TEST 


THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
TO ALL OTHER CYLINDERS. 


BEGINNING WITH CYLINDER ‘FC’. THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ‘FC’ AND ‘LC’ FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
ADDRESS 1S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 


THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 
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TEST 12 - ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER 0. TRACK 0. SECTOR 
0. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
TIMES THEN THE AVERAGE TIME 1S CALCULATED AND CHECKED TO 
ENSURE IT 1S WITHIN TOLERANCE: 


16.67 MS/REV + OR - 2% IF 60HZ 
16.67 MS/REV + OR - 2.5% IF SOHZ. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC : 0 
FC’ - 0 
FT - 0 
FS - 0 
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TEST 13 - ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE UNTIL THE INCREMENT 1S GREATER THAN THE 
CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
THE TIME MUST BE LESS THAN 10NS. 


THE TEST USES THE FOLLOWING PARANETERS: 
1 


FC ° 0 
LC - 410 
FC’ - 0 
LC’ - 814 


TEST 14 - ACCESS TIME MEASUREMENT 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
CYLINDER ‘LC’, THEN A REVERSEK FROM CYLINDER ‘LC’ TO 
CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 


ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT. 


THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL 


OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS. 


CYLINDER ‘LC’ DEFAULTS TO 136 (10) FOR AN RPO4/S OR TO 255 (10) 
FOR AN RPO6. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R ° 1 
FC ° 0 
LC ° 136 
FC’ ° 0 
7 ° 255 


TEST 15 - MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 
TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 

A TOTAL OF 256 SEEKS). THE MAXIMUM SEEK TIME MUST BE LESS THAN 
54 , rt DEFAULTS TO 410 (10) FOR RPO4/S'S AND TO 814 (10) 
FOR "Ss. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R ° 1 
FC - 0 
LC - 410 
et ° 0 
LC’ ° 814 


TEST 16 - SECTOR ADDRESSING TEST 
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THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK “FT”. THE 

DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 

BEING WRITTEN. A WRITE CHECK IS ik iene ie THE BUFFER IS 

CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED. THEN SECTOR 0 
1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED. THEN 

SECTOR 1 1S REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED. 

THIS REWRITE AND WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH 
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R 
FC 
FC’ 
FT 


TEST 17 - TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

IN CYLINDER “FC” SECTOR “FS" OF EVERY TRACK WITH EACH TRACK 
GETTING ITS OWN TRACK ADDRESS. 

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE 

THE DATA 1S VALID. THEN TRACK O IS REWRITTEN AND TRACK 1 
THROUGH TRACK 18 IS WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED. 
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING TRACK 17 
AND WRITE CHECKING TRACK 18. 


THE TEST USES THE FOLLOWING PARAMETERS: 


eee 
ooo 


R . 1 
FC . 0 
FC’ . 0 
FS - 0 


TEST 20 - DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
"FC" THROUGH "LC" BY THE INCREMENT “IC” USING THE DATA PATTERNS 
pecer ise. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 

SET "NT" TO “FT” THEN REPEAT 2-4 UNTIL “NT" > “LT” 
WRITE THEN WRITE CHECK "FS" THROUGH "LS" OF TRACK “NT” 
READ THEN SOFTWARE COMPARE “FS" THROUGH "LS" OF TRACK “NT” 
INCREMENT “NT” BY “IT” 
REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
REPEAT STEPS 1-5 FOR “FC” THROUGH “LC” ADVANCING BY "IC" 


IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
THE TRACK IN ERROR 1S REWRITTEN AND CHECKED. THIS CHECK IS 
ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
FATAL AND NO READ OCCURS. 

FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 

PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 

THE POSSIBLE PATTERNS ARE: 


CMWlwn= 


SEQ 0024 


MD-11-OZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
06-SEP-77 16: 20 


DZR JAB. P11 


9.18 


165555 


165555 
133333 
165555 
132333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 


THE TEST USES THE 


100000 


177774 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 


172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 


177777 


Nn 2 
MACY11 30(1046) O6-SEP-77 16:22 PAGE 29 


167356 052525 007417 026455 


077777 153333 000000 177777 
137777 066667 177777 000000 
157777 153333 177777” 000000 
167777 066667 177777 000000 
173777 153333 177777 000000 
175777 066667 177777 000000 
176777 153333 177777 000000 
177377 066667 177777 900000 
177577 153333 177777 000000 
177677 066667 177777 000000 
177737 153333 177777 000000 
177757 066667 177777 900000 
177767 153333 177777 900000 
177773 066667 177777 000000 
177775 153333 177777 000000 
177776 066667 177777 000000 


FOLLOWING PARAMETERS: 


TEST 21 - RANDOM ADDRESS AND RANDOM PATTERN TEST 


SEQ 0025 





N 2 
MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 30 
DZ2R JAB. P11 06-SEP-77 16: 20 


10. 


STARTING AT “FC” AND GOING THROUGH "LC" THE DISK PACK 
1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 
Se THAT Becta WILL BE THE BASE OF THE RANDOM GENERATOR 
THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE “R” TIMES 
"R" DEFAULTS TO 20.000. 


1) GENERATE A RANDOM ADORESS 
2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 
3) GENERATE A RANDOM ADORESS 
4 READ THE SECTOR AT THE ADDRESS 
GENERATED IN 3. 
5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
7) GENERATE A RANDOM ADORRESS 
8) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 7. 
9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 


THE TEST USES THE FOLLOWING PARAMETERS 


R ° 20000 
FC - 0 
LC . 410 
r - 0 
Lc’ ° 814 


TEST 22 - RPOY ACCESS TIME ADJUSTMENT TEST 


THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS O & 136 TO ALLOW THE 
OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOY USING THE 

DOU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED 


THE TEST USES THE FOLLOWING PARAMETERS 


re - 5000 
FC - 0 
Lc - 136 
FC’ - 0 
LC’ - 255 


SEQ 0026 


se, —————————————————————E=—_ 


B 3 
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DZR JAB. Pil 06-SEP-77 16: 20 SEQ 0027 | 
a 
1426 TITLE MD-11-DZ2RJA-B8 RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
1427 ;RCOPYRIGHT (C) 1976, 1977 
1428 ;RDIGITAL EQUIPMENT CORP. 
1429 ; MAYNARD, MASS. 01754 
1430 ie 
1931 s SPROGRAN BY C. HESS 
1433 ; THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
1434 , PACKAGE (MAINDEC-11-DZ2QAC-C3), JAN 19, 1977. 
1435 7k 
1436 
1437 . $BTTL CONTROL SWITCH SETTINGS 
1439 7x SWITCH STATE USE 
1440 GR eee cece teen n enn n enn een nnnn nnn nneennnnnnn- 
1441 7X 15 0 WRITE PACK BEFORE TESTING (TEST 21) 
1442 Pe 1 INHIBIT WRITING PACK BEFORE TESTING (TEST 21) 
1443 ix 14 0 NO STALL BETWEEN DRIVE FUNCTIONS 
1444 i 1 STALL AFTER EVERY ORIVE FUNCTION 
1445 re 13 0 USE SPECIFIC STALL TIME 
1446 a 1 USE RANDOM STALL 
1447 38 12 0 NO INCREMENTING STALL IN TEST 4 
1448 a 1 DO INCREMENTING STALL IN TEST 4 
1449 Pe 8 0 DO IMPLIED SEEKS WITH DATA TRANSFERS 
1450 a 1 DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
1451 x ? 0 DO “READ HEADER AND DATA” IN TESTS 0-11 
1452 im 1 DO EXPLICIT SEEKS IN TESTS O-11 
1453 a 6 0 60 HZ 
qesy 7k 1 50 HZ 
1455 3x 5 0 RUN WATCHDOG TIMER 
1456 im 1 INHIBIT WATCHDOG TIMER 
1457 ;k 0 0 TEST DRIVE(S) IN 22 SECTOR (16 BIT) MODE 
10s 3X 1 TEST DRIVE(S) IN 20 SECTOR (18 BIT) MODE 
14 
1460 _SBTTL OPERATIONAL SWITCH SETTINGS 
1461 3k 
1462 7X SWITCH USE 
1463 7, rr ne 
1464 ;k 15 HALT ON ERROR 
1465 ;% 14 LOOP ON TEST 
1466 ;% 13 INHIBIT ERROR TYPEOUTS 
1467 ;m 10 BELL ON ERROR 
1468 re 9 LOOP ON ERROR 
1469 x 8 PRINT ERROR MESSAGE ON LINE PRINTER 
1470 7m ? READ CONTROL SWITCH SETTINGS FROM TTY 
1471 i* 6 INHIBIT TIME REPORTS (TESTS 12-15) 
1472 ;k 5 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
1473 ik 4 INHIBIT WRITES (TEST 15) 
1474 it 3 INHIBIT WRITE CHECKS (TEST 20) 
1475 ;t 2 INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
1476 ik 1 INHIBIT SOFTWARE COMPARES (TEST 20) 
1477 it 0 PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 
1478 


1479 .SBTTL TRAP CATCHER 


C 63 
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DZR JAB. P11 06-SEP-77 
1480 
1481 000000 
1482 
1483 
1484 
1485 000174 
1486 000174 000000 
1487 000176 000000 
1488 
1489 
1490 
1491 
1492 
1493 000200 
1494 000046 
1495 000046 017614 
1496 000052 
1497 000052 000000 
1498 000200 
1499 
1500 
1501 000200 
1502 
1503 000200 000137 
1504 
1505 000204 000137 
1506 
1507 000210 000137 
1508 
1609 000214 000137 
1510 
1511 
1512 
1513 
1514 001100 
1515 
1516 
1517 
1518 
1519 000011 
1520 000012 
1521 000015 
1522 000290 
1523 177776 
1524 
1525 177774 
1526 177772 
1527 177570 
1528 177570 
1529 
1530 
1531 000000 
1532 000001 
1533 000002 
1534 000003 
1535 000004 


004636 
004660 
004626 
004650 


. 20 
;*%ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A". +2,HALT" 
; SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;KLOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: 


SWREG: 
. SBTTL 


jj REXAAAAAAAAAAAARAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AA AAA ATS 


2174 
* HORD 0 ++ SOFTWARE DISPLAY REGISTER 
.WORD 0 ++ SOFTWARE SWITCH REGISTER 


ACTi1 HOOKS 


+HOOKS REQUIRED BY ACTI1 


oo ge, + SAVE PC 

_s 

— +21)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
"WORD 0 ++2)SET LOC. 52 TO ZERO 

. =S$SVPC i+ RESTORE PC 


be hy STARTING ADDRESSES 
+%200 = NORMAL START 
JMP OeSTARTI 
+%204 = SELECT OPERATING PARAMETERS 
JMP OESTARTZ 
+%210 = SELECT RH11/RP04/5/6 ADDRESSES 
JMP O#STARTS 
+%214 = COMBINATION OF Pn AND 210 
JMP d*START 
.SBTTL BASIC DEFINITIONS 
;XINITIAL ADDRESS OF THE STACK POINTER 44% 1100 ¥4% 
STACK= 1100 
. EQUIV EMT, ERROR +>BASIC DEFINITION OF ERROR CALL 
. EQUIV 10T, SCOPE +;BASIC DEFINITION OF SCOPE CALL 
; 3MISCELLANEOUS DEFINITIONS 
HT= 11 +;CODE FOR HORIZONTAL TAB 
LF= 12 +;CODE FOR LINE FEED 
CR= 15 +-CODE FOR CARRIAGE RETURN 
CRLF= 200 +;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ++PROCESSOR STATUS WORD 
.EQUIV PS, PSH 
STKLMT= 177774 + STACK LIMIT REGISTER 
PIRQ= 177772 +-PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 +s HARDWARE SWITCH REGISTER 
DDISP= 177570 +; HARDWARE DISPLAY REGISTER 
; GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 NERAL REGISTER 
Ri= a1 3; GENERAL REGISTER 
R2= %2 ++ GENERAL REGISTER 
R3= %3 +-GENERAL REGISTER 
R4= %M +; GENERAL REGISTER 


SEQ 0028 


MD-11-DZRJA-B RPOY/5/6 a AND READ/WRITE TEST 


DZR JAB. Pil 06-SEP-77 
1536 000005 
1537 000006 
1538 000007 
1539 000006 
1540 000007 
1541 
1542 
1543 000000 
1544 000040 
1545 000100 
1546 000140 
1547 000200 
1548 000240 
1549 000300 
1550 000340 
1551 
1552 
1553 100000 
1554 040000 
1555 020000 
1556 010000 
1557 004000 
1558 002000 
1559 001000 
1560 000400 
1561 000200 
1562 000100 
1563 000040 
1564 000020 
1565 000010 
1566 000004 
1567 000002 
1568 000001 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 100000 
1582 040000 
1583 020000 
1584 010000 
1585 004000 
1586 002000 
1587 001000 
1588 000400 
1589 000200 
1590 000100 
1591 000040 


BASIC DEFINITIONS 


Dd 3 
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R5= “5 + GENERAL REGISTER 
R6= %6 +-GENERAL REGISTER 
R7= %7 +-GENERAL REGISTER 
SP= %6 ++ STACK POINTER 
PC= %7 +2 PROGRAM COUNTER 
; PRIORITY LEVEL DEFINITIONS 

PRO= 0 1ORITY LEVEL O 
PRi= 40 PRIORITY LEVEL 1 
PR2= 100 >; PRIORITY LEVEL 2 
PR3= 140 ;-PRIORITY LEVEL 3 
PR4= 200 ;- PRIORITY LEVEL 4 
PRS= 240 >; PRIORITY LEVEL 5 
PR6= 300 7 PRIORITY LEVEL 6 
PR7= 340 >; PRIORITY LEVEL 7 


SWii= 4000 
SWi0= 2000 
SWwOo9= 1000 
SWO8= 400 
SWO7= 200 
SWO6= 100 
SWwOS= 40 
SWO4= 20 
SWO3= 10 
SWwO2= 4 
SWOi= 2 
SwOO= 


16:22 PAGE 33 


SEQ 0029 
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1592 000020 
1593 000010 
1594 000004 
1595 000002 
1596 000001 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 000004 
1610 000010 
1611 000014 
1612 000014 
1613 000014 
1614 000020 
1615 000024 
1616 000030 
1617 000034 
1618 000060 
1619 000064 
1620 000240 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 000100 
1630 000200 
1631 000400 
1632 001000 
1633 002000 
1634 020090 
1635 040000 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 000001 
1647 000002 


BASIC DEFINITIONS 


BITO4= 20 

BITO3= 10 

BITOZ= 4 

BiTOi= 2 

BiTOO= 1 

. EQUIV BITOS.BIT9 
.EQUIV B1T08.BIT8 
.EQUIV B1TO7,B1T7 
.EQUIV BITO6.BIT6 
.EQUIV BITOS.BITS 
.EQUIV BITO4.BITY 
.EQUIV BITO3.B8I1T3 


. EQUIV. BITO2,.B1T2 
. EQUIV. BITO1.B1T1 
.EQUIV. BITOO.BITO 


;*BASIC "CPU" TRAP VECTOR ADDRESSES 


ERRVEC= 4 77 TIME OUT AND OTHER ERRORS 

RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 say IT 

TRTIVEC= 14 >; TRACE TRAP 

BPTVEC= 14 >; BREAKPOINT TRAP (BPT) 

1OTVEC= 20 33 INPUT/OUTPUT TRAP (1OT) **SCOPERS 
PWRVEC= 24 >; POWER FAIL 

EMTVEC= 30 >; EMULATOR TRAP (ENT) XERRORKX 
TRAPVEC=34 7; "TRAP" TRAP 

TKVEC= 60 +; TTY KEYBOARD VECTOR 

TPVEC= 64 3; TTY PRINTER VECTOR 

PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


js RERAAAAAARAAAAA AAA AAA AAA AAA AAA AAA ATA AAA AAA AAA AAA AAA AAA AIS 
.SBTTL RH11 REGISTERS 

5 5 RERAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
;CONTROL AND STATUS REGISTER 1 (RPCS1) 


\E= 100 ; INTERRUPT ENABLE (BIT #6) 

ROY= 200 ;READY (BIT &7) 

Alb= 400 HIGH ORDER BUS ADORESS BIT (BIT #8) 
Al7= 1000 +HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL= 2000 PORT SELECT (BIT #10) 

MCPE= 20000 ;MASSBUSS PARITY ERROR (BIT #13) 
TRE= 40000 + TRANSFER ERROR (BIT #14) 

;SC= 100000 + SPECIAL CONDITION (BIT #15) 


WORD COUNT REGISTER (RPHC) 
; (EACH BIT 1S CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RPBA) 
; (EACH BIT 1S CALLED BY BIT NUMBER) 


;CONTROL AND STATUS REGISTER 2 (RPCS2) 


USi= 1 ;UNIT SELECT (BIT #0) 
US2= 2 ;UNIT SELECT (BIT #1) 


SEQ 0030 


MD-11-OZR JA-B Aart oe B MECHANICAL AND READ/WRITE TEST 
16: 20 RH11 REGISTERS 


DZR JAB. P11 06-SEP-77 
1648 000004 
1649 000010 
1650 
1651 000040 
1652 000100 
1653 000200 
1654 000400 
1655 001000 
1656 002000 
1657 004000 
1658 010000 
1659 020000 
1660 04c000 
1661 100000 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 000001 
1676 000002 
1677 000004 
1678 000010 
1679 000020 
1680 000040 
1681 004000 
1682 
1683 
1684 
1685 
1686 000002 
1687 000004 
1688 000010 
1689 000020 
1690 000040 
1691 000100 
1692 000200 
1693 000400 
1694 001000 
1695 002000 
1696 004000 
1697 010000 
1698 020000 
1699 040000 
1700 100000 
1701 
1702 


US4= 
BAI= 


;PAT= 


CLR= 
IR= 
OR= 
MPE= 
MXF = 
PGE= 
NEM= 
NED= 
UPE= 
WCE= 
OLT= 


4 


100000 


FS 
MACY11 30(1046) 


DATA BUFFER REGISTER (RPDB) 
+ (EACH BIT 1S CALLED BY BIT NUMBER) 


06-SEP-77 16:22 PAGE 35 


UNIT SELECT (BIT #2) 

BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
;MASSBUS 4g tt TEST (BIT #4) 

CLEAR (BIT #5) 

+ INPUT READY (BIT #6) 

OUTPUT READY (BIT #7) 

MASS BUS PARITY ERROR (BIT #8) 

sMISSED TRANSFER ERROR (BIT #9) 

+ PROGRAM ERROR (BIT #10) 

+NON EXISTENT MEMORY (BIT #11) 

NON EXISTENT ORIVE (BIT #12) 

;UNIBUS PARITY ERROR (BIT #13) 
;WRITE CHECK ERROR (BIT #14) 
DATA LATE (BIT #15) 


js MRRAAAAAAAA AAA AAA AAA AAA AAA AAA AAA ALAA AAA ATA AAA AAA AAA AAA AAAS 
.SBTTL RPOY/576 REGISTERS 
js RERAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA A AAA AAA AAA AA AA AAA AAA AAAS 
; CONTROL AND STATUS 1 REGISTER. 


GO= 
Fis 
F2= 
F3= 
F4u= 
FS= 
DVA= 


1 


4000 


(#00) 


+GO BIT (BIT #0) 

FUNCTION CODE BIT #1 
+FUNCTION CODE BIT #2 
+FUNCTION CODE BIT &3 
*+FUNCTION CODE BIT &4 
+FUNCTION CODE BIT &5 
+DEVICE AVAILABLE (BIT #11) 


;DRIVE STATUS REGISTER (RPDS1) (#01) 


ATA= 


100600 


DRIVE FORWARD 5"/SEC. (BIT #0) 
+DRIVE FORWARD 20"/SEC. (BIT #1) 
;DRIVE TO INNER GUARD BAND (BIT #2) 
+GO REVERSE (BIT #3) 

DIFFERENCE LESS THAN 64 (BIT #4) 
DIFFERENCE EQUALS 1 (BIT #5) 
VOLUME VALID (BIT #6) 

+DRIVE READY (BIT &7) 

;DRIVE PRESENT (BIT #8) 
;PROGRAMABLE (BIT &9) 

+LAST SECTOR TRANSFERRED (BIT #10) 
+WRITE LOCK (BIT #11) 

;MEDIUM ON-LINE (BIT #12) 
sPOSITIONING OPERATION IN PROGRESS (BIT #13) 
;COMPOSITE ERROR (BIT #14) 
ATTENTION ACTIVE (BIT #15) 


ERROR REGISTER #01 (RPER1) (#02) 


SEQ 0031 


MO-11-OZRJA-B RPOY/5/6 eee AND READ/WRITE TEST 
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1704 000001 
1705 000002 
1706 000004 
1707 000010 
1708 000020 
1709 000040 
1710 000100 
1711 000200 
1712 000400 
1713 001000 
1714 002000 
1715 004000 
1716 01C000 
1717 020000 
1718 040000 
1719 100000 
1720 
1721 
1722 
1723 000001 
1724 000002 
1725 000004 
1726 000010 
1727 000020 
1728 000040 
1729 000200 
1730 
1731 
1732 
1733 000001 
1734 000002 
1735 000004 
1736 000010 
1737 000020 
1738 000040 
1739 000100 
1740 000200 
1741 
1742 
1743 
1744 
1745 
1746 
1747 000001 
1748 000002 
1749 000004 
175C 000010 
1751 000020 
1752 000040 
1753 000100 
1754 000200 
1755 000400 
1756 004000 
1757 020000 
1758 0000 
1759 100000 


G 3 
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RPO4/5/6 REGISTERS 
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LLEGAL FUNCTION ( 
Siete REGISTER ( t #1) 


it : 
; WR | Te CLOCK FAIL (BI 
;ECC HARD ERROR (BIT #6) 

+HEADER COMPARE ERROR (BIT #7) 
HEADER CRC ERROR (BIT #8) 
;ADORESS OVERFLOW ERROR (BIT #9) 
+ INVALID ADDRESS ERROR (BIT #10) 
WRITE LOCK ERROR (BIT #11) 
sDRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
;ORIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


#5) 


; 
; 
: 
; 
sf 
¢ 
’ 


;MAINTAINABILITY REGISTER (RPMR) (#03) 


ILF= 1 
ILR= 2 
RMR= 4y 
PAR= 10 
FER= 20 
WCF = 40 
ECH= 100 
HCE= 200 
HCRC= 400 
AOCE= 1000 
iRE= 2000 
WLE= 4000 
OTE= 10000 
OP I= 20000 
UNS= 40000 
OCK= 100000 
OMND= 1 
MCLK= 2 
MINX= y 
MSTCK 10 
MRD= 20 
MWR= 40 
OTSY= 200 


+DIAGINOSTIC MODE (BIT #0) 
;MAINTAINABILITY CLOCK (BIT #1) 
;MAINTAINABILITY INDEX (BIT #2) 
;MAINTAINABILITY SECTOR CLOCK (BIT #3) 
;MAINTAINABILITY READ (BIT #4) 
;MAINTAINABILITY WRITE (BIT #5) 
;MAINTAINABILITY SYNC DETECTED (BIT #7) 


; ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 


ATO= 
ATi= 
AT2= 
AT3= 
AT4= 
ATS= 
AT6= 
AT7= 


;DEVICE O (BIT #0) 
sDEVICE 1 (BIT #1) 
sDEVICE 2 (BIT #2) 
sDEVICE 3 (BIT #3) 
*DEVICE 4 (BIT #4) 
;DEVICE 5 (BIT #5) 
/DEVICE 6 (BIT #6) 


;DEVICE 7 (BIT #7) 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
+; (EACH BIT 1S CALLED BY BIT NUMBER) 


DRIVE TYPE REGISTER (RPDT) (#06) 


OTOO= 
DTOi= 
DT02= 
DTO3= 


100000 


>» 

o 

x» 

< 

nm 

4 

< 

s 

faa 
m m 

@ 
BOwDDODOWOOD 
Aaa 
WOOVNOWMSWN— 


TY R 
/DRIVE REQUEST REQUIRED (BIT #11) 


; TAPE DRIVE (BIT #14) 
NOT BLOCK ADDRESSED (BIT #15) 


SEQ 0032 
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DZR JAB. Pil 


06-SEP-77 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 


001000 
002000 
004000 
010000 
020000 
040000 
100000 


000001 
000002 


020000 


RPO4/5/6 REGISTERS 
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+LOOK-AHEAD REGISTER (RPLA) (#07) 


EXTi= 1 
ExT2= 2 
EXT4u= 4 
ExT1i0= 10 
EXT20= 20 
EXT4YO= 40 
SCis 100 
$C2= 200 
*SC4= 400 
$c10= 1000 
sc20= 2000 
TRK1i= 4000 
TRK2= 10000 
TRK4= 20000 


TRK10= 40000 
TRK20= 100000 


+ RPOW ERROR REGISTER #2 (RPERZ) 


WCU= 1 
CSF= 2 
WSU= y 
CSU= 10 
MSE= 20 
TOF= 40 
TUF = 100 
FEN= 200 
WRU= 400 
MHS= 1000 
NHS= 2000 
\XE= 4000 
VU30= 10000 
PLU= 20000 


ACU= 100000 


+ EXTENS| 
+ EXTENS| 


Fe tn hen en ant 
"OOWoow 


+ SECTOR COUNT F 
+ SECTOR COUNT F 
+ SECTOR COUNT FI 
+ TRACK FIELD 1 ¢ 
+ TRACK FIELD 2 ¢ 
+ TRACK FIELD 3 ¢ 
+ TRACK FIELD & ¢ 
+ TRACK FIELD 5 ¢ 


(#10) 


;WRITE CURRENT UNSAFE (BIT #0) 
; CURRENT SINK FAILURE (BIT #1) 
;WRITE SELECT UNSAFE (BIT #2) 

s+ CURRENT SWITCH UNSAFE (BIT #3) 
;MOTOR SEQUENCE ERROR (BIT #4) 
; TRANSITIONS DETECTOR FAILURE (BIT #5) 
+ TRANSITIONS UNSAFE (BIT #6) 
+FAILSAFE ENABLED (BIT #7) 
*+WRITE READY UNSAFE (BIT #8) 
;MULTIPLE HEAD SELECT (BIT #9) 
+NO HEAD SELECTION (BIT #10) 

+ INDEX ERROR (BIT #11) 

+ 30VOLT UNSAFE (BIT #12) 

+PLO UNSAFE (BIT #13) 

AC UNSAFE (BIT #15) 


;RPOS/6 ERROR REGISTER #02 (RPER2) (#10) 


WCU= 1 
CSF= 2 
WSU= 4 
CSU= 10 
RAW= 20 
TOF = 40 
TUF = 100 
ABS= 200 
WRU= 400 
MHS= 1000 
NHS= 2000 
IXE= 4000 
PLU= 20000 


:OFFSET REGISTER (RPOF) (#11) 


+WRITE CURRENT UNSAFE (BIT #0) 
+ CURRENT SINK FAILURE (BIT #1) 
;WRITE SELECT UNSAFE (BIT #2) 
+CURRENT SWITCH UNSAFE (BIT #3) 
READ AND WRITE (BIT #4) 

+ TRANSITIONS DETECTOR FAILURE (BIT #5) 
+ TRANSITIONS UNSAFE (BIT #6) 
;ABNORMAL STOP (BIT #7) 

;WRITE READY UNSAFE (BIT #8) 
+MUTLTIPLE HEAD SELECT (BIT #9) 
+NO HEAD SELECTION (BIT #10) 

+ INDEX ERROR (BIT #11) 

PLO UNSAFE (BIT #12) 


SEQ 0033 
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DZR JAB. Pil 06-SEP-77 
1816 000001 
1817 000002 
1818 000004 
1819 000010 
1820 000020 
1821 000040 
1822 000200 
1823 002000 
1824 004000 
1825 010000 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 000001 
1839 000002 
1840 000010 
1841 000040 
1842 000100 
1843 040000 
1844 100000 
1845 
1846 
1847 
1848 000001 
1849 000002 
1850 000040 
1851 000100 
1852 020000 
1853 040000 
1854 100000 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 000101 
1866 000103 
1867 0001 
1868 000107 
1869 000111 
1870 000113 
1871 000115 


RPO4/5/76 REGISTERS 


OF25= 1 OFFSET 25 MICRO INCHES (BIT #0) 
OF50= 2 OFFSET 50 MICRO INCHES (BIT #1) 
OF100= 4 OFFSET 100 MICRO INCHES (BIT #2) 
OFZ200= 10 OFFSET 200 MICRO INCHES (BIT #3) 
OF4O0= 20 OFFSET 4OO MICRO INCHES (BIT #4) 
OF800= 40 OFFSET 800 MICRO INCHES (BIT #5) 
OFREV= 200 OFFSET NEGATIVE (REVERSE) (BIT #5) 
HC i= 2000 +HEADER COMPARE INHISIT (BIT #10) 
ECi= 4000 ; ERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT22= 10000 FORMAT BIT (BIT #12 

+DESIRED CYLINDER ADDRESS (RPCA) (#12) 

; (EACH BIT 1S CALLED BY BIT NUMBER) 

+; CURRENT CYLINDER ADDRESS (RPCC) (#13) 

+ (EACH BIT IS CALLED BY BIT NUMBER) 

SERIAL NUMBER REGISTER (RPSN) (#14) 

+ (EACH 1S CALLED BY BIT NUMBER) 

+RPOWY ERROR REGISTER #03 (RPERS) (#15) 

PSU= 1 +PACK SPEED UNSAFE oe ® ‘e 

VUF = 2 + VELOCITY UNSAFE (BIT & 

UWR= 10 ANY UNSAFE EXCEPT READ/UR ITE (BIT #3) 
ACL= 40 ;AC LOW (BIT #5) 

DCL= 100 *D0C LOW (BIT #6) 

SKI= 40000 +SEEK INCOMPLETE (BIT #14) 

ocYyL= 100000 OFF CYLINDER (81T #15) 

;RPOS/6 ERROR REGISTER #03 (RPER3) (#15) 

DOCU= 1 +0C UNSAFE (BIT #0) 

WAO= 2 ;WRITE AND OFFSET (BIT #1) 

ACL= 40 7AC LOW (BIT #5) 

DCL= 100 ;0C LOW (BIT #6) 

OPE= 20000 OPERATOR PLUG ERROR (BIT #13) 
SKI= 40000 /SEEK INCOMPLETE (BIT #14) 

ocYL= 100000 OFF CYLINDER ERROR (BIT #15) 


;ECC POSITION REGISTER (RPEC1) (#16) 
; (EACH BIT 1S CALLED BY BIT NUMBER) 


ECC PATTERN REGISTER (RPEC2) (#17) 
; (EACH BIT 1S CALLED BY BIT NUMBER) 


js RERAAAAAAAAA AAA ALAA AAA AAA AAA AAA AAA AAA ALAA AAA AAA RARE AAA A AAAS 


;O0P CODE DEFINITIONS 
NOOP=101 

UNL OAD=103 

SEEK=105 

RECAL=107 

ORVCLR=111 
RELEASE=113 
OFFSET=115 


SEQ 0034 
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DZ2R JAB. Pil 06-SEP-77 
1872 000117 
1873 000121 
1874 000123 
1875 000131 
1876 000151 
1877 000153 
1878 000161 
1879 000163 
1880 000171 
1881 000173 
1882 000141 
1883 000143 
1884 000145 
1885 
1886 
1887 
1888 177400 
1889 010000 


RPO4/5/6 REGISTERS 
RTC=117 


SEARCH=131 
WRCKO=151 
WRCKHD=153 
WRI TE=161 
WRTHD=163 
READ=171 
READHD=173 
GE TREG=141 
SETFORM=143 
SELORV=145 


+OTHER EQUATES 


SCTRWC = -256. ‘WORD COUNT FOR SECTOR 
FMT22=10000 FORMAT 22 BIT 


SEQ 0035 
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DZR JAB. P11 06-SEP-77 16: 20 COMMON TAGS SEQ 0036 
po] . SBTTL COMMON TAGS 
1893 + RURAAAAAAAAAARAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS AAT A TTS 
1894 +KTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATICNS 
ooo + USED IN THE PROGRAM. 
1897 001100 . =1100 
1898 001100 SCMTAG: ++ START OF COMMON TAGS 
1899 001100 000000 SPASS: .WORD 0 ++CONTAINS PASS COUNT 
1900 001102 000 STSTNM: .BYTE 0 ++CONTAINS THE TEST NUMBER 
1901 001103 SERFLG: .BYTE 0 +; CONTAINS ERROR FLAG 
1902 001104 000000 SICNT: .WORD OQ +; CONTAINS SUBTEST ITERATION COUNT 
1903 001106 00C000 SLPADR: .WORD 0 ++ CONTAINS SCOPE LOOP ADDRESS 
1904 001110 000000 SLPERR: .WORD 0 ++ CONTAINS SCOPE RETURN FOR ERRORS 
1905 001112 000000 SERTTL: .WORD 0 +; CONTAINS TOTAL ERRORS DETECTED 
1906 001114 000 SITEMB: .BYTE O ++CONTAINS ITEM CONTROL BYTE 
1907 001115 001 SERMAX: .BYTE 1 ++ CONTAINS MAX. ERRORS PER TEST 
1908 001116 000000 SERRPC: .WORD 0 +; CONTAINS PC OF LAST ERROR INSTRUCTION 
1909 001120 0 SGDADR: .WORD 0 ++ CONTAINS ADDRESS OF ‘GOOD' DATA 
1910 001122 000000 SBDADR: .WORD 0 +-CONTAINS ADDRESS OF ‘BAD' DATA 
1911 001124 000000 SGDDAT: .WORD O +;CONTAINS ‘GOOD’ DATA 
1912 001126 000000 SBDDAT: .WORD 0 +;CONTAINS ‘BAD’ DATA 
1913 001130 000000 .WORD O ++RESERVED--NOT TO BE USED 
1914 001132 000000 .WORD O 
1915 001134 000 SAUTOB: .BYTE 0 +; AUTOMATIC MODE INDICATOR 
1916 001135 000 SINTAG: .BYTE O ++ INTERRUPT MODE INDICATOR 
1917 001136 000000 .WORD O 
1918 001140 177570 SWR: .WORD OSWR ++ADDRESS OF SWITCH REGISTER 
1919 001142 177570 DISPLAY: . WORD ODISP i;ADDRESS OF DISPLAY REGISTER 
1920 001144 177560 STKS: 177560 ++ TTY KBO dyatd « 
1921 001146 177562 STKB: 177562 ++ TTY KBD BUFFE 
1922 001150 177564 STPS: 177564 ++ TTY PRINTER STATUS REG. ADDRESS 
1923 001152 177566 STPB: 177566 ++ TTY PRINTER BUFFER REG. ADDRESS 
1924 001154 000 SNULL: .BYTE OQ ++ CONTAINS NULL CHARACTER FOR FILLS 
1925 001155 002 SFILLS VTE 2 +2CONTAINS @ OF FILLER CHARACTERS REQUIRED 
1926 001156 012 SFILLC: .BYTE 12 +7 INSERT FILL CHARS. AFTER A “LINE FEED" 
1927 001157 000 STPFLG: .BYTE OQ +7 "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
1928 001160 000000 SREGAD: .woxv 0 +; CONTAINS THE ADDRESS FROM 
1929 +;WHICH (S$REGO) WAS OBTAINED 
1930 001162 000000 SREGO: WORD O ++ CONTAINS ((SREGAD)+0) 
1931 001164 000000 SREG1: WORD 0O +s CONTAINS ((SREGAD)+2) 
1932 001166 000000 SREG2: .WORD O +; CONTAINS ((SREGAD)+4) 
1933 001170 000000 SREGS: WORD 0 +; CONTAINS ((SREGAD) +6) 
1934 001172 000000 SREGH: WORD OQ + CONTAINS ((SREGAD)+10) 
1935 001174 000000 SREGS: .WORD 0 +; CONTAINS ((S$REGAD)+12) 
1936 001176 000000 $TMPO: .WORD 0 +-USER DEFINED 
1937 001200 000000 STMP1: .WORD O +USER DEF INED 
1938 001202 000000 S$TMP2: .WORD 0 +,USER DEFINED 
1939 001204 000000 STIMES: O +;MAX. NUMBER OF ITERATIONS 
1940 001206 000000 SESCAPE: 0 ++ESCAPE ON ERROR ADDRESS 
1941 001210 177607 000377 $BELL: .ASCIZ Server etary ;;CODE FOR BELL 
1942 001214 077 SQUES: .ASCII 7/27 +; QUESTION MARK 
1943 001215 015 SCRLF: .ASCII <15> +; CARRIAGE RETURN 
1944 001216 000012 SLF: .ASCIZ <12> ++LINE FEED 
1945 jj MERAAAAAAAAATAAAA AAA ALAA AAA AA AA AAA AAA AA AAA AAA AAA AAA AAA AAAS 
1946 000015 CR = 15 


MD-11-OZRJA-B RPOY/S/6 MECHANICAL AND READ/WRITE TEST 
0 COMMON TAGS 


DZR JAB. P11 


001250 


O6-SEP-77 16:2 


000012 
0000 


000000 
000000 


0404 32 


000000 


000000 


000000 


176700 
000254 000240 
000104 000106 


OPNFLG: . 
CLKSTA: . 


TICKMS: . 
TICKUS: 


TIM. 


PKV: 


DN: i 


. BYTE 


: . WORD 
. WORD 
. WORD 
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oOuooooo0o- 


7777.0 
0 


6666. 


—s 
o 


. 
o 


o Oo 


> aatitenaiis 


104,106 
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SEQ 0037 


+CONTROL SWITCHES 

+PREVIOUS CONTENTS OF '‘C. SUR’ 

;CONTROL “C" FLAG 

;GET ADDRESSES FROM THE TTY FLAG (O=NO, -1=YES) 
+LPT AVAILABLE STATUS (O=NO, 1=YES) 

Ao! Re SH FOR TESTING 


RUN TS 0-15 
;MODIFY TEST PARAMETER FLAGS 
+CLOCK STATUS (O=NO CLOCK, +1=KW11-P, 
AND -1=KW11-L) 
316 MILLISECONDS PER CLOCK TICK 
+ 16666 MIRCOSECONDS PER CLOCK TICK 


+DORIVE UNDER TEST 

DRIVE MASK BIT 

+ STATUS/ERROR INDICATOR IS 
+; SAVED HERE ON AN ERROR 

+ CYLINDER READ 

+ TRACK READ 

SECTOR READ 

> CYLINDER DESIRED 

+SECTOR DESIRED 

+ TRACK DESIRED 

;MINIMUM TIME 

+NUMBER OF COUNTS BELOW MIN. 
+MAXIMUM TIME 

;NUMBER OF COUNTS ABOVE MAX. 
+ TOTAL TIME OF ALL SEEKS 
+NUMBER OF SEEKS PERFORMED 
MINIMUM TIME 

+NUMBER OF COUNTS BELOW NIN. 
+ MAXIMUM TIME 

;NUMBER OF COUNTS ABOVE MAX. 
; TOTAL TIME OF ALL SEEKS 
+NUMBER OF SEEKS PERFORMED 
+POINTS TO TABLE OF TIMES 

FATAL WRITE CHECK ry FLAG (TEST 20) 
+VARIABLE STALL (TEST 4 

*SAVE DISK ADDRESS CTEST 22) 

+SEEK TIMER (TEST 10) 

+SEEK COUNTER 

+ TESTING RANGE FOR SERVO SETTLE DOWN TEST 
+WORD COUNT FOR A FULL TRACK IN 16 BIT MODE 
+10 MILLISECONDS STALL (TEST 0-11) 

+10 MILLISECONDS STALL (TEST 16-21) 

+5 SEC STALL (TEST 22) 

;MAX. INCREMENTING STALL ALLOWED IN TEST 4 
+NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21 
*+BEFORE GOING TO THE NEXT TEST 

+ RESERVED 


LIMIT 
LIMIT 


LIMIT 
LIMIT 


;RH11-RH70 UNIBUS ADDRESS 
+RH11-RH70 VECTOR ADDRESS AND PRIORITY 
+KW11-P VECTOR ADDRESS 
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172540 


177516 


000001 


06-SEP-77 16:2 


000102 


PKCS: .WORD 172540 


06-SEP-77 16:22 PAGE 42 
SEQ 0038 


+KW11-P CONTROL AND STATUS REG. 
+KW11-P COUNT SET BUFFER 
+KW11-P COUNTER 

+KWil-L VECTOR ADDRESS 

+KWii-L STATUS REGISTER 

TTY PRINTER STATUS 

+ TTY PRINTER BUFFER 

+LINE PRINTER STATUS 

+LINE PRINTER BUFFER 


REPEAT COUNTS FOR ALL TESTS 
FIRST CYLINDER 

+LAST CYLINDER 

+ INCREMENT CYLINDER 
+FIRST TRACK 

*LAST TRACK 

+ INCREMENT TRACK 
FIRST SECTOR 

+LAST SECTOR 

PATTERN CODE 

+NEW CYLINDER ADORESS 
+NEW CYLINDER ADDRESS 


PKB WORD 172542 

PKC WORD 172544 

LKV WORD 100,102 

KS WORD 177546 

TPS WORD 177564 

TPB WORD 177566 

LPS WORD 177514 

LPB WORD 177516 

+BIT TABLE 

BITS: .WORD 81TOO 
.WORD BITO1 
-WORD B1TOZ 
.WORD BITOS 
.WORD B1TO4 
.WORD BITOS 
.WORD BITO6 
.WORD B1TO7 
.WORD BITOS 
.WORD BITOS 
.WORD 8B1T10 
WORD BITi1 
.WORD BIT12 
.WORD BIT13 
.WORD BIT14 
.WORD BITIS 
.WORD B1ITOO 
.WORD BITO1 
.WORD B1TOZ2 
.WORD BITO3 
.WORD BITO4 
.WORD BITOS 
WORD B1TO6 
.WORD BITO7 

; COMMON STORAGE FOR TEST PARAMETER 

PRM: .WORD O 

RPT .WORD QO 

FC .WORD O 

LC .WORD 0 

IC .WORD 0 

FT .WORD 0 

LT .WORD 0 

IT WORD O 

FS .WORD 0 

LS .WORD OQ 

PAT .WORD QO 

NC1 .WORD OQ 

NC2 .WORD 0 

; TABLE OF PARAMETER POINTERS 

PRMPT: .WORD PRO 
.WORD = PRM1 
-WORD PRNZ 


MO-11-D2R JA-B Ae ot B os AND READ/WRITE TEST 
6: 20 COMMON 
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+ TERMINATOR 


5°" 
Py ¥ 
g "FC ow 
: “a on 
Z id | hs 
: —y" 


oa 7 
‘ 


rr 


;STATUSZERROR INDICATOR MESSAGES POINTER TABLE 
1125, 200..410..814..0,0 ;RECAL/SEEK (TO) 


3377, 100. ,0,128..0,256..6,0,0,0,0 ;SEEK/SEEK (T1) 


1177, 1,0,410.,0,814..1,0,0 ; INCREMENT SEEK (T2) 


DZR JAB. P11 06-SEP-77 TAGS 
2059 001544 002414 .WORD PRI 
2060 001546 002436 .WORD = PRMY 
2061 1550 002460 .WORD PRNS 
2062 001552 002502 .WORD PRG 
2063 001554 002524 .WORD PRM? 
2064 001556 002544 .WORD PRMIO 
2065 001560 2 .WORD = PRMI1 
2066 001562 2606 .WORD PRMIZ 
2067 1564 002622 .WORD PRMIZ 
2068 001566 002636 .WORD = PRMI4 
2069 001570 002652 .WORD PRIS 
2070 001572 2666 .WORD PRM16 
2071 001574 002700 .WORD = PRM17 
2072 001576 002712 .WORD PRNZ20 
2073 001600 002744 .WORD PRN21 
2074 001602 002760 . WORD PRN22 
2075 001604 . WORD 
2076 
2077 ;PARAMETER UPPER LIMIT 
2078 001606 032767 PRMLMT: .WORD 32767 
2079 001610 000632 .WORD 410. 
2080 001612 000632 .WORD 410. 
2081 001614 001456 .WORD 814. 
2082 001616 001456 .WORD 814. 
2083 001620 001456 .WORD 814. 
2084 001622 000022 .WORD = 18. 
2085 001624 000022 .WORD = 18. 
2086 001626 000022 .WORD = 18. 
2087 001630 000025 .WORD = 21. 
2088 001632 000025 .WORD = 21. 
oe 001634 177777 .WORD = 177777 
2091 ; TABLE OF MESSAGE POINTERS 
2092 001636 3000 PRMMSG: .WORD MSG.R 
2093 001640 043002 .WORD MSG. FC 
2094 001642 043005 .WORD MSG.LC 
“195 001644 043010 .WORD MSGFCP 
2096 001646 043014 .WORD MSGLCP 
2097 001650 043020 .WORD AMSG. IC 
2098 001652 043023 .WORD MSG. FT 
2099 001654 043026 .WORD MSG. LT 
2100 001656 043031 .WORD MSG. IT 
2101 001660 043034 .WORD MSG. FS 
2102 001662 043037 .WORD MSG.LS 
2103 
2104 
2105 ;DEFAULT VALUES OF TEST PARAMETERS 
2106 001664 001125 000310 000632 OFLT: ~. WORD 
2107 001672 001456 000000 
2108 001700 003377 00014% 000000 . WORD 
2109 001706 000200 000000 000400 
2110 001714 000000 000000 
2111 001722 000000 000000 
2112 001726 001177 000001 . WORD 
2113 001734 000632 O00000 001456 
2114 001742 000001 000000 


SEQ 0039 
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06-SEP-77 


COMMON TAGS SEQ 0040 
.WORD = 1177,10,0, 256. ,0,256.,1,0,0 ; STEPPING SEEK (T3) 


-WORD 1177, 1,0,410.,0,814.,1,0,0 ;OSCILLATING SEEK (T4) 

WORD =1177.,1,0,410.,0,814..1,0,0 ;CONVERGING/DIVERGING SEEK (TS) 
-WORD = 1177,1,0,410.,0,814..1,0,0 ; SERVO ADDRESSING LOGIC NOISE (Té) 
.WORD 337,5000..0.410.,0,814.,0,.18. RANDOM SEEK TEST (T7) 

-WORD = 177,1,0,410.,0,814.,100.,0 SERVO SETTLE DOWN TEST (T10) 
~WORD = 1177,1,0,410.,0,814.,1,0,0 +ALL SEEKS TEST (711) 


.WORD 1113,1,0,0,0,0 ;ROTATIONAL SPEED TIMING TEST (T12) 


-WORD = 37,1,0,410.,0, 814. sONE CYLINDER SEEK TIMING TEST (113) 
.WORD 37,1,0, 136. ,0, 255. ACCESS TIME MEASURMENT TEST (T14) 
-WORD = 37,1,0,410.,0, 814. +MAXIMUM SEEK TIMING TEST (T15) 


-WORD 113.1,0,0,0 SECTOR ADDRESSING TEST (T16) 
.WORD 1013,1.0,0,0 + TRACK ADDRESSING TEST (T17) 
-WORD = 7777,1.0,410..0,814. .64.,0,18..1,1,0,177777 ; DATA TEST (T20) 


-WORD 37,20000..0,410.,0,814. ;EXERCISER (721) 
-WORD 37,5000..0,136.,.0,255. ;RPOY ACCESS TIME RDOJUSTMENT TEST (122) 


+PARAMETER TABLES 
+RECAL/SEEK (TO) 
PRIMO: . WO 1125 


ROD 
WORD 200 
WORD 410 
WORD 814 
-WORD O 
.WORD O 


+ SEEK/SEEK (T1) 
PRM: -WORD 3377 
.WORD 100. 


. 
MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) 06-SEP-77 
DZRJAB. P11 16: 20 COM 


002350 
002352 


002370 


002372 


06-SEP-77 


000000 


000000 


001177 
00c001 


000000 


001177 


001177 


MON TAGS 


.WORD O 
.WORD 128. 
.WORD 0 
.WORD 256. 
WORD 0 
.WORD OQ 
.WORD OQ 
.WORD O 
.WORD 0 
+ INCREMENT SEEK (T2) 
PRM2: .WORD 1177 
. WOR 
. WORD 
.WORD 410 
. WORD 
WORD 814 
. WORD 
WORD 0 
WORD O 
STEPPING SEEK (T3) 
. WORD 
. WORD 
. WORD 
WORD 256 
. WORD 
WORD 512 
WORD 1 
WORD O 
WORD O 
OSCILLATING SEEK (T4) 
PRMY: .WORD 1177 
WORD 1 
WORD 
WORD 410 
. WORD 
WORD 814 
. WORD 
WORD O 
WORD O 
; CONVERGING/DIVERGING SEEK (TS) 
. WORD 
. WORD 
. WORD 
.WORD 410 
. WORD 
.WORD 814 
. WORD 
.WORD QO 
WORD O 


7 SERVO ADDRESSING * a NOISE GENERATOR (T6) 
PRM6: .WORD 1177 


16:22 PAGE 45 


SEQ 0041 
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DZR JAB. Pil 06-SEP-77 COMMON TAGS 
2227 002504 000001 -WORD 1 
2228 002506 000000 .WORD 0 
2229 002510 000632 .WORD 410. 
2230 002512 000000 .WORD 0 
2231 002514 001456 .WORD 814. 
2232 002516 000001 -WORD 1 
2233 002520 000000 .WORD OQ 
oti 002522 000000 .WORD 0 
2236 RANDOM SEEK TEST (T7) 
2237 002524 000337 PRMN?: .WORD 337 
2238 002526 011610 .WORD 5000. 
2239 002530 o0C000 .WORD 0 
2240 002532 000632 ~WORD 410. 
2241 002534 000000 .WORD O 
2242 002536 001456 .WORD = 814. 
2243 002540 000000 .WORD 0 
os 002542 000022 .WORD = 18. 
2246 +SERVO SETTLE DOWN TEST (T10) 
2247 002544 000177 PRM10: .WORD 177 
2248 002546 000001 .WORD 1 
2249 002550 000000 .WORD O 
2250 002552 000632 .WORD 410. 
2251 002554 000000 .WORD O 
2252 002556 001456 .WORD 814. 
2253 002560 000144 .WORD 100. 
2254 002562 000000 .WORD O 
2255 
2256 ;ALL SEEKS TEST (T11) 
2257 002564 001177 PRM11: .WORD 1177 
2258 002566 000001 .WORD 1 
2259 002570 .WORD O 
2260 002572 000632 .WORD 410. 
2261 002574 000000 .WORD O 
2262 002576 001456 .WORD = 814. 
2263 000001 .WORD 1 
2264 002602 000000 .WORD O 
co 002604 .WORD O 
2267 ROTATIONAL SPEED TIMING TEST (112) 
2268 002606 001113 PRM1Z2: .WORD 1113 
2269 002610 1 .WORD 1 
2270 002612 .WORD QO 
2271 00261% 000000 .WORD 0 
2272 002616 000000 .WOoRD OQ 
are 002620 000000 .WORD 0 
2275 ONE CYLINDER SEEK TIMING TEST (T13) 
2276 002622 000037 PRM13: .WORD 37 
2277 002624 000001 . WORD 
2278 002626 000000 .WoRD 0 
2279 2630 000632 .WORD 410. 
2280 002632 .WORD 0 
2281 002634 001456 .WORD = 814. 
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002636 
002640 
002642 
002644 
002646 
002650 


002652 
002654 


06-SEP-77 


000037 
000001 
000000 
000210 
000000 
000377 


000037 
000001 
000000 
000632 
000000 
001456 


000113 
000001 
000000 
000000 
000000 


001013 


000000 


007777 


177777 
000037 
047040 
000000 
000632 
000000 
001456 


000037 
011610 
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ACCESS TIME MEASURMENT TEST (T14) 
PRM14: . WOR 


ORD 37 
WORD 1 
.WORD O 
.WORD 136. 
.WORD O 
.WORD 255. 
;MAXIMUM SEEK TIMING TEST (T15) 
PRM15: .WORD 37 
.WORD 1 
.WORD O 
~WORD 410. 
.WORD O 
~WORD = 814. 
SECTOR ADDRESSING TEST (T16) 
PRM16: .WORD 113 
. WORD 
. WORD ; 
.WORD O 
.WORD O 
+ TRACK ADDRESSING TEST (T17) 
PRM17: .WORD 1013 
.WORD 1 
.WORD O 
.WORD O 
.WORD O 
DATA TEST (720) 
PRN20: .WORD 777 
.WORD 1 
.WORD O 
.WORD 410 
.WORD O 
.WORD 814. 
.WORD = 64. 
.WORD O 
.WORD = 18. 
.WORD 1 
.WORD 1 
.WORD 0 
PTRNIS: .WORD 177777 


EXERCISER (121) 
oS F 


PRN21: 


20000. 
0 

410. 

0 

814. 


;RPOY ACCESS a TEST (122) 


PRN22: . WORD 
. WORD 


5000. 


SEQ 0043 


MO-11-DZRJA-B RPOY/5/6 5 = Nes AND ee te TEST 


, © 
MACY11 30(1046) 
0 
136. 
0 
255. 


MSG7 
0 


1634. 
1700. 


MSG? 
0 


1625. 
1709. 


MSG10A 
MSG10B 


0 
1000. 


MSG11A 
MSG11B 


0 
3000. 


MSG12A 
MSG128 


0 
5500. 


165555 
133333 


DZ2R JAB. P11 06-SEP-77 TAGS 
2339 002764 000000 . WORD 
2340 002766 000210 . WORD 
2341 002770 000000 . WORD 
2342 002772 000377 . WORD 
2343 
2344 
2345 
2346 + SEEK TIMING LIMITS 
2347 
2348 002774 043420 T7A: . WORD 
2349 002776 000000 . WORD 
2350 003000 003142 . WORD 
yt 003002 002244 . WORD 
2353 003004 043420 T7B: . WORD 
2354 003006 000000 . WORD 
2355 003010 003131 . WORD 
yt: 003012 003255 . WORD 
2358 003014 043452 T10: . WORD 
2359 003016 043521 . WORD 
2360 003020 000000 . WORD 
ioe} 003022 001750 WORD 
2363 003024 043536 Til: . WORD 
2364 003026 043604 . WORD 
2365 003030 000000 . WORD 
tot 003032 005670 WORD 
2368 003034 043621 T12: WORD 
2369 003036 043663 . WORD 
2370 003040 000000 WORD 
pa 003042 012574 WORD 
2373 003044 003104 PAT. PT: . WORD 
2374 OO03046 003144 . WORD 
2375 003050 003204 . WORD 
2376 003052 003244 . WORD 
2377 003054 003304 . WORD 
2378 003056 003344 . WORD 
2379 003060 003404 . WORD 
2380 003062 O03444 . WORD 
2381 003064 003504 . WORD 
2382 003066 003544 . WORD 
2383 003070 . WORD 
2384 303072 003644 . WORD 
2385 003074 003704 . WORD 
2386 003076 003744 . WORD 
2387 003100 004004 . WORD 
=e 003102 OO04044 . WORD 
2390 ;PATTERNS O THRU 15 
2391 
2392 003104 165555 PATO: .WORD 
2393 003106 133333 WORD 
2394 003110 165555 - WORD 


165555 
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16. 67-2%)XX2 
We 6742%) KX2 


;NO LOWER LIMIT 
+ (743) 442 


*+NO LOWER LIMIT 
+ (2842) 442 


;NO LOWER LIMIT 
; (§042)%%2 


; TABLE OF POINTERS WHICH POINT TO THE 
PATTERNS USED BY THE DATA TEST 


;PATTERN O 


SEQ 0044 


MO-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
D COMMON TAGS 


ZR JAB. 


Pil 06-SEP-77 16: 20 


003112 
003114 
003116 
003120 
003122 
003124 
003126 
003130 
003132 
003134 
003136 
003140 
003142 


003144 


133333 


165555 
132333 


000001 


077777 
177777 


177776 
177774 
177770 


PATI: 


PATZ2: 


PATS: 
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133333 


165555 
133333 


000001 
000003 
000007 
000017 
000037 
000077 
000177 
000377 
000777 
001777 
003777 
007777 
017777 
037777 
077777 
177777 


177776 
177774 
177770 
177760 
177740 
177700 
177600 
177400 
177000 
176000 
174000 
170000 
160000 
140000 
100000 
000000 


000000 
000000 
000000 
177777 
177777 
177777 
000000 
000000 


;PATTERN 1 


PATTERN 2 


;PATTERM 3 


SEQ 0045 


MD-11-DZ2RJA-B RPO4/5/6 oo AND “haunt TEST 


DZR JAB. P11 06-SEP-77 OMMON TAGS 
2451 003264 177777 . WORD 
2452 003266 177777 . WORD 
2453 003270 000000 . WORD 
2454 003272 177777 . WORD 
2455 003274 000000 . WORD 
2456 003276 177777 . WORD 
2457 003300 000000 . WORD 
Abe 003302 177777 . WORD 
2460 003304 000000 PAT: WORD 
2461 003306 010421 WORD 
2462 003310 021042 . WORD 
2463 003312 031463 . WORD 
2464 003314 042104 . WORD 
2465 003316 052525 . WORD 
2466 003320 063146 . WORD 
2467 003322 073567 . WORD 
2468 003324 104210 . WORD 
2469 003326 114631 . WORD 
2470 003330 125252 . WORD 
2471 003332 135673 . WORD 
2472 OO3334 146314 . WORD 
2473 003336 156735 . WORD 
2474 OO3340 167356 . WORD 
2475 003342 177777 . WORD 
2476 
2477 003344 052525 PATS: WORD 
2478 003346 052525 . WORD 
2479 003350 052525 . WORD 
2480 003352 125252 . WORD 
2481 003354 125252 . WORD 
2482 003356 125252 . WORD 
2483 003360 052525 . WORD 
2484 003362 052525 WORD 
2485 003364 125252 WORD 
2486 003366 125252 WORD 
2487 003370 052525 WORD 
2488 003372 125252 WORD 
2489 003374 052525 WORD 
2490 003376 125252 WORD 
2491 003400 052525 . WORD 
be 003402 125252 . WORD 
2494 003404 007417 PAT6: WORD 
2495 003406 007417 WORD 
2496 003410 007417 . WORD 
2497 003412 170360 . WORD 
2498 003414 170360 . WORD 
2499 003416 170360 . WORD 

003420 007417 . WORD 
2501 003422 007417 . WORD 
2502 3424 170360 . WORD 
2503 003426 170360 . WORD 
2504 003430 007417 . WORD 
2505 003432 170360 . WORD 
2506 003434 007417 . WORD 
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177777 


000000 
177777 


000000 


177777 


052525 
052525 
052525 
125252 
125252 
125252 
052525 
052525 
125252 
125252 
052525 
125252 
052525 
125252 
052525 
125252 


007417 
007417 
007417 
170360 
170360 
170360 
007417 
007417 
170360 
170360 
007417 
170360 
007417 
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PATTERN 4 


;PATTERN 5 


;PATTERN 6 


SEG 0046 







2507 003436 170360 
2508 003440 007417 
OO3442 170360 


026455 



























151322 


2528 003504 165555 
2529 003506 133333 
2530 003510 165555 
2531 003512 133333 
2532 003514 165555 
2533 003516 133333 
2534 003520 165555 
2535 003522 133333 
2536 003524 165555 
2537 003526 133333 
2538 003530 165555 
2539 003532 133333 
254G 003534 165555 
2541 003536 133333 
2542 OC3540 165555 
2543 003542 133333 


177776 


MD-11-OZRJA-B RPO4Y/5/6 ME 
DZ2R JAB. P11 06-SEP-77 


PATS: 


PATS: 


PATIO: 


CHANICAL AND READ/WRITE TEST 
6: 20 COMMON TAGS 





026455 


1 4 
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170360 


007417 


170360 





151322 


165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 
165555 
133333 


000001 


100000 
177776 


;PATTERN 7 






SEQ 0047 










PATTERN 8 


PATTERN 9 


;PATTERN 10 


MO-11-DZR JA-B he 4 B MECHANICAL AND READ/WRITE TEST 
16: 20 COMMON 


DZR JAB. Pil 06-SEP-77 TAGS 
2563 003606 177775 . WORD 
2564 003610 177773 . WORD 
2565 003612 177/767 . WORD 
2566 003614 177757 . WORD 
2567 003616 177737 . WORD 
2568 3620 177677 . WORD 
2569 003622 177577 . WORD 
2570 003624 177377 . WORD 
2571 003626 176777 . WORD 
2572 003630 175777 . WORD 
2573 003632 173777 . WORD 
2574 003634 167777 . WORD 
2575 003636 157777 . WORD 
2576 003640 137777 . WORD 
2577 003642 077777 . WORD 
2578 
2579 O03644 172666 PAT11: WORD 
2580 003646 155555 . WORD 
2581 003650 172666 . WORD 
2582 003652 155555 . WORD 
2583 003654 172666 . WORD 
2584 003656 155555 . WORD 
2585 3660 172666 . WORD 
2586 003662 155555 . WORD 
2587 003664 172666 . WORD 
2588 003666 155555 WORD 
2589 003670 172666 . WORD 
2590 003672 155555 . WORD 
2591 003674 172666 . WORD 
2592 003676 155555 . WORD 
2593 003700 172666 . WORD 
sal 003702 155555 . WORD 
2596 003704 077777 PAT12: . WORD 
2597 003706 137777 WORD 
2598 003710 157777 . WORD 
2599 003712 167777 . WORD 
2600 003714 173777 . WORD 
2601 003716 175777 . WORD 
2602 003720 176777 . WORD 
2603 003722 177377 . WORD 
2604 003724 177577 . WORD 
2605 003726 177677 . WORD 
2606 003730 177737 . WORD 
2607 003732 177757 . WORD 
2608 003734 177767 . WORD 
2609 003736 177773 . WORD 
2610 003740 177775 . WORD 
att! 003742 177776 . WORD 
261 
2613 003744 153333 PAT13: .WORD 
2614 003746 066667 WORD 
2615 003750 153333 . WORD 
2616 003752 67 . WORD 
2617 003754 153333 . WORD 
2618 003756 066667 . WORD 


J 4 
MACY11 30(1046) 


177775 


137777 
077777 


172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 
172666 
155555 


077777 
137777 
157777 
167777 
173777 
175777 
176777 
177377 
177577 
177677 
177737 
177757 
177767 
177773 
177775 
177776 


153333 
066667 
153333 
066667 
153333 
066667 
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PATTERN 11 


PATTERN 12 


PATTERN 13 


SEQ 0048 


MO-11-DZRJA-B RPO4/5/6 5 Yoate AND wg tty TEST 


DZR JAB. P11 06-SEP-77 16: 2 COMMON TAGS 
2619 003760 153333 -WORD 153333 
2620 003762 066667 .WORD 066667 
2621 003764 153333 -WORD 153333 
2622 003766 066667 WORD 066667 
2623 003770 153333 -WORD 153333 
2624 003772 67 .WORD 066667 
2625 003774 153333 -WORD 153333 
2626 003776 066667 .WORD 066667 
2627 004000 153333 -WORD 153333 
so 004002 066667 .WORD 066667 
2630 000000 PATI4: .WORD 000000 
2631 OO4006 177777 WORD 177777 
2632 004010 177777 .WORD 177777 
2633 004012 177777 ~WORD = 177777 
2634 OO4014 177777 .WORD = 177777 
2635 O04016 177777 .WORD 177777 
2636 004020 177777 .WORD = 177777 
2637 004022 177777 -WORD = 177777 
2638 004024 177777 .WORD = 177777 
2639 004026 177777 .WORD 177777 
2640 004030 177777 .WORD = 177777 
2641 OO4032 177777 .WORD = 177777 
2642 OO4O34 177777 WORD = 177777 
2643 OO04036 177777 WORD = 177777 
2644 OO4O4O 177777 .WORD 177777 
ar 004042 177777 .WORD 177777 
2647 OO4O44 177777 PATI5: .WORD 177777 
2648 004046 000000 .WORD 000000 
2649 004050 000000 .WORD 000000 
2650 004052 000000 .WORD 000000 
2651 004054 000000 .WORD 000000 
2652 004056 000000 . WORD 000000 
2653 004060 000000 .WORD 000000 
2654 004062 000000 .WORD 000000 
2655 004064 000000 .WORD 000000 
2656 004066 .WORD 000000 
2657 004070 000000 .WORD 000000 
2658 004072 000000 .WORD 000000 
2659 004074 000000 .WORD 000000 
2660 004076 000000 .WORD 000000 
2661 004100 000000 .WORD 000000 
oer 004102 .WORD 000000 
2664 DPB (DATA PARAMETER BLOCK) 
2665 
2666 004104 000 OPB.A: .BYTE O 
2667 004105 000 BYTE 0 
2668 004106 000 BYTE 0 
2669 004107 000 .BYTE OQ 
2670 004110 000000 .WORD 0 
oll 004112 047712 .WORD BUFFER 
267 
2673 004114 000 .BYTE O 
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;PATTERN 14 


PATTERN 15 


, 
, 
’ 
’ 
’ 
’ 
’ 
, 
‘ 


( 
( 
( 
( 
( 
; ( 
R 
( 
F 


0 
1 
2 
(3 
; (4 
6 
E 
1 
1 


) DRIVE NUMBER 

) OFFSET VALUE OR FMT22, ECI. AND HCI 
) COMMAND 

) PSEL AND Al? AND Al6 

) WORD COUNT (MUST BE NEG. ) 

) BUFFER ADDRESS OR 

GISTER TABLE POINTER 

QO) SECTOR ADDRESS OR 

RST REG. INDEX 


SEQ 0049 


MD-11-DZRJA-B RPO4/5/6 ss em AND ag ty TEST 


DZR JAB. P11 O6-SEP-77 16:2 TAGS 
2675 004115 000 . BYTE 
2676 
2677 004116 000000 . WORD 
2678 004120 004204 . WORD 
2679 
2680 
2681 
2682 
2683 
2684 004122 000000 . WORD 
2685 
2686 
2687 
2688 
2689 
2690 004124 000 DPB.B: . BYTE 
2691 004125 000 BYTE 
2692 004126 000 . BYTE 
2693 004127 000 . BYTE 
2694 004130 177776 . WORD 
2695 004132 047712 . WORD 
2696 
2697 004134 000 BYTE 
2698 
2699 004135 000 BYTE 
2700 
2701 004136 000000 WORD 
2702 004140 004204 WORD 
2703 
2704 
2705 
2706 
2707 
2708 004142 9000000 . WORD 
2709 
2710 
2711 
2712 
2713 
2714 OO04144 000 DOPB.C: .BYTE 
2715 004145 000 BYTE 
2716 004146 000 . BYTE 
2717 004147 090 . BYTE 
2718 004150 177776 . WORD 
2719 004152 047712 . WORD 
2720 
2721 004154 000 . BYTE 
2722 
2723 004155 000 . BYTE 
2724 
2725 004156 000000 . WORD 
2726 004160 004204 . WORD 
2727 
2728 
2729 
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0 
RP. REG 


0 
RP. REG 


UFFER 


0 
RP. REG 
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SEQ 0050 


;LOCATIONS OF WHERE THE DRIVER 
+ 1S TO STORE THE RH11/RPO4 
REGISTERS ON AN ERROR. IF LEFT 
+ZERO REGISTERS ARE NOT SAVED. 

+ (16) STATUS/ERROR INDICATOR 
+BITIS=1=>ERROR OCCURRED 
+B1T0721=>DONE 

+B1T14-B1TO9 AND Bi TO6-B1TO3 

; INDICATE TYPE OF ERROR 


DRIVE NUMBER 
OFFSET VALUE OR FMT22, ECI. AND HCI 
OMMAND 


Cc 
) PSEL AND A17 AND Al6 
) WORD COUNT (MUST BE NEG. ) 
) BUFFER ADDRESS OR 
GISTER TABLE POINTER 
O) SECTOR oe OR 


G. INDEX 
1) TRACK ADDRESS OR 
INDEX 
2) CYLINDER ADORESS 
14) ERROR TABLE POINTER 
+POINTS TO THE FIRST OF TWENTY 
;LOCATIONS OF WHERE THE DRIVER 
+ 1S TO STORE THE RH11/RPO4 
+REGISTERS ON AN ERROR. IF LEFT 
+ ZERO REGISTERS ARE NOT SAVED. 
+ (16) STATUS/ERROR INDICATOR 
bE: ads vor OCCURRED 
B 
; | 


ed & 


KH MOfCWN-O 


~@ 
“n 
Be 
z 
m 


ds cu came, ite aig ie to 
—-D—— 
“ 
4 
~ 
m 
a 


; 
, 
; 
; 
; 
, 
; 
; 
; 
; 
r 
; 
; 


1 T07=1=>DONE 
1T14-BITO9 AND B1TO6-BITOS 
NDICATE TYPE OF ERROR 


) DRIVE NUMBER 
2) OFFSET VALUE OR FMT22. ECI. AND HCI 
) 


ad 

2) COMMAND 

3) PSEL AND A17 AND Al6 

4) WORD COUNT —. BE NEG. ) 
qs BUFFER ADDRESS 0 
1 
! 
1 
A 
1 


ee 


: POINTS TO THE FIRST OF TWENTY 
+LOCATIONS OF WHERE THE DRIVER 
+18 TO STORE THE RH11/RPO4% 
REGISTERS ON AN ERROR. IF LEFT 
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DZR JAB. P11 06-SEP-77 16: 20 COMMON TAGS SEQ 0051 
2731 ; ZERO REGISTERS ARE NOT SAVED. 
2732 004162 000000 .WORD O + (16) STATUS/ERROR INDICATOR 
2733 ;BITISs1=>ERROR OCCURRED 
2734 ;81T0721=>D0NE 
2735 ;B1T14-B1TO9 AND B1T06-B1TO3 
hs ; INDICATE TYPE OF ERROR 
2738 004164 000 DTADPB: .BYTE O ;(0) ORIVE NUMBER 
2739 004165 000 .BYTE 0 341) OFFSET VALUE OR FMT22. ECT. AND HCI 
2740 004166 000 BYTE O + (2) COMMAND 
2741 004167 000 .BYTE 0 ;(3) PSEL AND A17 AND A16 
2742 004170 000000 .WORD O ;(4) WORD COUNT (MUST BE NEG. ) 
2743 004172 047712 .WORD BUFFER + (6) BUFFER ADDRESS OR 
2744 ;REGISTER TABLE POINTER 
2745 004174 000 . BYTE 0 +(10) SECTOR ADDRESS OR 
2746 ;FIRST REG. INDEX 
2747 004175 000 . BYTE 0 7(11) TRACK ADDRESS OR 
2748 ; LAST INDEX 
2749 004176 000000 . WORD 0 +412) CYLINDER ADDRESS 
2750 004200 004204 _WORD RP. REG + (14) ERROR TABLE POINTER 
2751 ;POINTS TO THE FIRST OF TWENTY 
2752 ; LOCATIONS OF WHERE THE DRIVER 
2753 ; 1S TO STORE THE RH11/RPO4 
2754 ;REGISTERS ON AN ERROR. IF LEFT 
2755 > ZERO REGISTERS ARE NOT SAVED. 
2756 004202 000000 . WORD 0 + (16) STATUS/ERROR INDICATOR 
2757 ;BIT1S5=1=>ERROR OCCURRED 
2758 +B1TO7=1=>D0NE 
2759 ;BIT14-BITO9 AND BI T06-B1 TOS 
2760 ; INDICATE TYPE OF ERROR 
2761 
2762 
2763 
oe ; SAVE RH117RPO4 REGISTERS HERE ON ERROR 
27 
2766 004204 000000 RP. REG: . WORD 0 ;RPCS1 (776700) CONTROL & STATUS #1 
2767 004206 000000 . WORD 0 ;RPWC (776702) WORD COUNT 
2768 004210 000000 WORD 0 ;RPBA (776704) BUS ADDRESS 
2769 004212 000000 WORD 0 ;RPDA (776706) DESIRED SECTOR/TRACK 
2770 004214 000000 WORD 0 ;RPCS2 (776710) CONTROL & STATUS #2 
2771 004216 000000 WoRD O ;RPOS1 (776712) DISK STATUS 
2772 0042 000000 WORD O ;RPER1 (776714) ERROR REG. #1 
2773 004222 000000 WwoRD O ;RPAS (776716) ATTENTION SUMMARY 
2774 004224 000000 WORD O ;RPLA (776720) LOOK AHEAD 
2775 004226 000000 WORD O ;RPDB (776722) DATA BUFFER 
2776 2 000000 WORD 0 ;RPMR (776724) MAINTAINABILITY 
2777 004232 000000 WORD O ;RPDT (776726) ORIVE TYPE 
2778 2 000000 WORD O ;RPSN (776730) SERIAL NUMBER 
2779 004236 000000 WORD O ;RPOF (776732) OFFSET 
2780 004240 000000 WORD 0 ;RPCA (776734) DESIRED CYLINDER 
2781 004242 000000 WORD O ;RPCC (776736) CURRENT CYLINDER 
2782 004244 000000 WORD O ;RPERZ (776740) ERROR REG #2 
2783 004246 000000 WORD 0 ;RPER3 (776742) ERROR REG #3 
2784 004250 000000 WORD O ;RPEC1 (776744) ECC POSITION 
2785 004252 000000 WORD 0 ;RPEC2 (776746) ECC PATTERN 
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DZR JAB. Pil 06-SEP-77 16: 20 COMMON TAGS SEQ 0052 
2787 ;STATUS/ERROR MESSAGE POINTER TABLE 
2788 004254 044722 STATBL: .WORD MSGB14 sOFFLINE OR UNSAFE DRIVE REQUESTED 
2789 004256 044764 .WORD MSGB13 + UNLOAD DRIVE REQUESTED 
2790 004260 045015 .WORD MSGB1Z + PERSISTENT UNSAFE 
2791 004262 045037 .WORD MSGB11 +PARITY ERROR OCCURRED 
2792 004264 045065 .WORD MSGB10 ;FATAL PARITY ERROR 
2793 004266 045110 WORD MSGBO9 + SOFTWARE TIMEOUT ON THIS DRIVE 
2794 004270 045147 .WORD MSGBO8 + SOFTWARE TIMEOUT ON ANOTHER DRIVE 
2795 004272 045211 .WORD MSGBO06 FERROR OCCURRED DURING 170 OPERATION 
2796 004274 045255 .WORD MSGBOS sERROR OCCURRED DURING NON-1/0 OPERATION 
2797 004276 045325 .WORD MSGBO4 + UNSAFE OCCURRED 
2798 004300 O45345 .WORD MSGBO3 +; AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
2799 004302 O4E415 .WORD MSGBO2 DRIVE HAS NOT RESPONDED TO PORT REQUEST 


2800 004304 045465 .WORD MSGBO1 ;DRIVE HAS BECOME NONEXISTENT 
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004 306 


06-SEP-77 


044043 
045523 
047104 
047536 


044106 
045540 
047110 
047542 


ERROR POINTER TABLE SEQ 0053 
.SBTTL ERROR POINTER TABLE 
+RTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 


+RTHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND | 
+RLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TAOLE |S PERTINENT. 


+ ¥NOTE1: 1F SITEMB 1S O THE ONLY PERTINENT DATA IS (SERR 

+ XNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
re EM ++POINTS TO THE ERROR MESSAGE 

| DH ++POINTS TO THE DATA HEADER 

re DT ++POINTS TO THE DATA 

re OF ++POINTS TO THE DATA FORMAT 


SERRTB: 

+XEM_ AND DH ARE ASCIZ MESSAGES, DT IS A STRING OF WORDS THAT POINT TO THE 
+XOATA TO BE TYPED AND OF IS A STRING OF DATA THAT TELL HOW THE OT WORDS 
+¥ARE TO BE TYPED. IF ANY OF THE POINTERS ARE NOT NEEDED FOR A PARTICULAR 
+XERROR IT 1S REPLACED WITH A ZERO. 

+XEACH OF THE ITEMS BELOW REFER TO THE ERROR NUMBER AND INDICATE 

+XTHE INFORMATION THAT WILL BE TYPED WHEN THE ERROR OCCURS. 

+ UNLESS STATED OTHER ALL NUMBERS ARE OCTAL 


x ERROR ITEM 1 

& RH11 INTERRUPT OCCURED (RPAS = 0) 
1 ERR PC RPAS 

x SERRPC SREG3 


x ERROR ITEM 2 

¥ UNEXPECTED ATTENTION OCCURRED 

+ ERR PC DRIVE RPAS RPOS1 RPER1 RPERZ RPERZ 

4 SERRPC SREG1 SREG3 RPERRS RPERRS+2 RPERRS+4 RPERRS+6 


+% ERROR ITEM 3 

re MASSBUS PARITY ERROR (NCPE=1) 
rm TEST ERR PC ADDRESS DATA 
;* STMPO SERRPC RD. ADR RD. WROD 


EM3 
DH3 
DT3 
OF 3 


x ERROR ITEM 4 
% MASSBUS PARITY ERROR (PAR=1) 
t TEST ERR PC ADDRESS GODATA BDDATA 


ee ee 


D2R 


JAB. 


Pil 


004336 
004340 
004342 
004344 


004 346 
004350 
004352 
004 354 


004 356 
004 360 
004 362 
004 364 


004 366 
004370 
004372 
004374 


004406 
004410 
004412 
004414 


044201 
045663 
047136 
047552 


044235 
045540 
047110 
047542 


000000 
C00000 
000000 
000000 


000000 
000000 
000000 
000000 


044271 
045732 
047170 
047556 


044 347 
045751 
047174 
047562 
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ERROR POINTER TABLE 


;*% 


&. Be Be Be 


dt 2t 24 DE 


Se Be Be we 
ot 24 2 2 


ot 24 24 3 


i i 


Se Be Be Be Be 
ot 34 04 34 2t 


STMPO SERRPC WRT. ADR WRT. WO RD. WROD 


ERROR ITEM 5 
ADDRESS PLUG CHANGE BIT SET 
ERR PC DRIVE RPAS RPOS1 RPERI RPERZ RPER3 
SERRPC GREGi GREG3 RPERRS RPERRS+2 RPERRS+4 RPERRS+6 


ERROR ITEM 6 -- NOT USED 


0 
0 
0 
0 


ERROR ITEM 7 -- NOT USED 


0 
0 
0 
0 


ERROR ITEM 10 
RH11/RPO4/5/76 FAILED TO RESPOND TO ADDRESSING 
RPCS1_ =ERR PC 
RH. ADR SERRPC 


ERROR ITEM 11 
DRIVE SELECTED 1S NOT ONLINE 
DRIVE ERR PC 
SREGZ2  SERRPC 


ERROR ITEM 12 
IMPROPER HEADER DATA 
TEST ERR PC TST PC ORIVE CYLNDR TRACK SECTOR 
STMPO SERRPC SREGO CHKORV CYL.OS TRK.OS SEC.DS 
GOCYL GDTRK GOSCTR BOCYL BOTRK BOSCTR 


SEQ 0054 


MO-11-DZRJA-B RPO4Y/5/6 MECHANICAL AND waren be TEST 
DZRJAB. P11 16: 20 ER 


004416 
004420 
004422 
004424 


004426 
004430 
004432 
0044 34 


0044 36 
004440 
004442 
OO4444 


06-SEP-77 


044404 
045770 
047200 
047566 


044431 
045770 
047232 
047576 


000000 
000000 
047250 
047606 


044431 
045770 
047232 
047576 


000000 
000000 
047250 
047606 


044456 


rm 
me 


Be Be Be Be Be Be Be ee Be Be Be He Be Be Be 
Pt Dt Dt FE FE FE DE oe PE DE 2E DE PE 34 3G 


Be Be 
et 


ROR POINTER 


CYL. 
CYLNOR, 


ERROR ITEM 
DATA COM 


$G0D 
CYLNOR 


EM13 
DH12 
DT13 
DF13 
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TABLE 


DS TRK.OS SEC.OS CYL.RD TRK.RD SEC. RD 
TRACK, AND SECTOR ARE DECIMAL 


13 
PARE FAILURE 
ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
eer SREGO CHKORV CYL.OS TRK.OS SEC. DS 
BODAT WROCNT GDADR BDADR 
aT SBDDAT SREG4Y SGOADR SBDADR 
+ TRACK, SECTOR, AND WROCNT ARE DECIMAL 


ERROR ITEM 14 -- FOLLOWS #13 
SGODAT SBDDAT SREG4Y SGDADR SBDADR 


0 


0 
DT123A 
OF 14 


ERROR ITEM 15 
DATA COMPARE FAILURE 


ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
SERRPC SREGO CHKORV CYL.OS TRK.OS SEC.OS 


GODAT BODAT WROCNT GDADR BDADR 
SGDDAT SBDDAT SREGY SGDADR SBDADR 
CYLNDR, TRACK. SECTOR. AND WROCNT ARE DECIMAL 


ERROR ITEM 16 -- FOLLOWS #15 
SGDDAT SBODAT SREGY SGDADR SBDADR 


0 


0 
DT13A 
DF 14 


ERROR ITEM 17 


DISK ERR 
TEST 
STMPO 


EM17 


OR IN TIMING TEST 
ERR PC DRIVE RPCS1 RPDS! RPER1 RPERZ RPERS 
SERRPC CHKORVY RP.REG RP. REG+12 RP. REG+14 RP. REG+4O RP. REG+42 


SEQ 0055 
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004470 
004472 
004474 


004476 
004500 
004502 
004504 


004506 
004510 
004512 
004514 


004524 


004526 
004530 
004532 
004534 


004536 
004540 


06-SEP-77 


046204 
047262 
047612 


044510 
046204 
047262 
047612 


044431 
046302 
047302 
047616 


000000 
000000 
047316 
047626 


044557 
046417 
047326 
047632 


044606 
046417 


ERROR POINTER TABLE 


ERROR ITEM 20 


CLOCK 
TEST 
STMPO 


(KW11-P) OVERFLOW IN TIMING TEST 
ERR PC DRIVE RPCSi1 RPDS! RPER1 RPERZ RPERS 
SERRPC CHKORV RP. REG RP. REG+12 RP. REG+14 RP. REG+4O RP. REG+42 


ERROR ITEM 21 
DATA COMPARE FAILURE 


ERR PC TST PC DRIVE CYLNOR TRACK 
SERRPC SREGO CHKORV CYL.OS TRK.OS 


GODAT BODAT WROCNT SECTOR 
SREG1 SBODAT SREGY  SREGI 
CYLINDR, TRACK, WROCNT. AND SECTOR ARE DECIMAL 


EM13 
DH21 
OT21 
OF 21 


ERROR IT 


EM 22--FOLLOWS #21 


SREG1 SBDDAT S$REG4H SREGI 


0 


0 
DT21A 


DF 22 


ERROR ITEM 23 


DISK 


ERROR IT 
SEEK 


ERROR DURING SEEK 

ERR PC DRIVE CYLNOR RPCSi RPCS2 RPOS1 
O SERRPC CHKORV CYL.DS RP. REG RP. REG+10 RP. REG+12 
RPER1 RPERZ RPER3 RPCA RPCC 


EM 24 
NOT COMPLETE WITHIN 120 MS 
ERR PC DRIVE CYLNOR RPCS1 RPCS2 RPOS1 
O SERRPC CHKORV CYL.DS RP. REG RP. REG+10 RP. REG+12 
RPER1 RPER2 Ag RPCA RPC 


SEQ 0056 


Je 
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JAB. 


3025 
3026 
? 


Pi 


004542 
004544 


004546 


004566 
004570 
004572 


06-SEP-77 


047326 
047632 


044646 
046552 
047356 
047642 


O44646 
046610 
047366 
047646 


044646 
046610 
047404 


ee ee ee ee ee ee ee ee ee ee en ee ee ee 


;*% 
| 
;*% 
x 
;x 
;x 
; x 
;x% 
; x 
;x 
;x 
;x 
| 
;x 
; x 
;% 
iT 
re 
x 
x 
x 


, 
; 
, 


0T23 
DF 23 


ERROR ITEMS 23-40 NOT USED 

ERROR ITEMS 41-46 WILL HAVE AN EM THAT 
VARIES DEPENDING ON THE ERROR. IT WILL BE 
RH11/RPO4/5/6 ERROR (MESSAGE) 


js MERRERARARALAL ALAA ALAA AAA A ALAA TATA A AAA ASAE SEATS 
RXKAKARARAAALAAALALALATALALALALALALAAA LALA AA AA AA AAA AAA AAA AAAS 


IN THE FORM: 


ee MESSAGE WILL BE ONE OR MORE . FOLLOWING: 


OFFLINE OR UNSAFE DRIVE REQUESTE 
2) UNLOADED DRIVE REQUESTED 
3) PERSISTENT UNSAFE 
4) PARITY ERROR OCCURRED 
5) FATAL PARITY ERROR 
6) SOFTWARE TIMEOUT ON THIS DRIVE 
7) SOFTWARE TIMEOUT ON ANOTHER DRIVE 
8) ERROR OCCURRED DURING 170 OPERATION 


ERROR OCCURRED DURING NON-170 OPERATION 


9) 
10) UNSAFE OCCURRED 


11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 


EM41: 


ERROR ITEM 41 
RH11/RPO4/5/6 ERROR (MESSAGE ) 
TEST ERR PC TST PC ORIVE 
STMPO SERRPC SREGO CHKORV 


EM41 
DH4 1 
OT41 
OF 41 


ERROR ITEM 42 
RH11/RPO4/5/6 ERROR (MESSAGE) 
TEST ERR PC TST PC DRIVE RPCS1 
STMPO SERRPC SREGO CHKORV RP. REG 


ERROR ITEM 43 
RH11/7RPO4/5/6 ERROR (MESSAGE) 
TEST ERR PC TST PC DRIVE RPCS1 
STMHPO SERRPC SREGO CHKORV RP. REG 
RPER1 RPERZ RPER3 
RP. REG+14 RP. REG+H4O RP. REG+42 


RPCS2 = RPDS1 
RP. REG+10 RP. REG+12 


RPCS2 RPOS1 
RF. REG+10 RP. REG+12 


SEQ 0057 
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DZR JAB. P11 O6-SEP-77 16: 20 ERROR POINTER TABLE SEQ 0058 
3081 004574 047652 DF43 
3082 
3083 +* ERROR ITEM 44 
3084 re RH11/7RPO4/5/6 ERROR (MESSAGE ) 
3085 mS TEST ERR PC TST PC ORIVE CYLNOR TRACK SECTOR 
3086 re STMPO SERRPC SREGO CHKORV CYL. DS or DS SEC. DS 
3087 ;*% RPCS1 RPCS2 RPOS1 RPCC RPCA RPDA 
3088 mS RP. REG RP. REG+10 RP. REG+12 RP. REG+36 RP. REG+34 RP. REG+06 
3089 eS RPER1 RPERZ RPERS 
3090 ix RP. REG+14 RP. REG+4O RP. REG+42 
344 | CYLNDR. TRACK. AND SECTCR ARE DECIMAL 
3093 004576 O44646 EN41 
3094 004600 045770 DH12 
3095 004602 047430 DT44 
3096 004604 047662 DF44 
3097 
3098 *& ERROR ITEM 45 
3099 eS RH11/RPO4/5/6 ERROR (MESSAGE ) 
3100 ;* TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
3101 ix STMPO SERRPC SREGO CHKORV CYL.DS TRK.OS SEC. DS 
3102 eS RPCS1 RPCS2 RPOS1 RPCC RPCA RPDA 
3103 i* RP. REG RP. REG+10 RP. REG+12 RP. REG+36 RP. REG+34 RP. REG+06 
3104 4 RPER1 RPERZ RPER3 RPWC RPBA RPOB 
3105 4 RP.REG+14 RP.REG+4O0 RP. REG+42 RP. REG+2 RP. REG+4 RP. REG+22 
pe ix CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
1 
3108 004606 O4%4646 EM41 
3109 004610 045770 DH12 
3110 004612 047470 DT4S 
3111 004614 047676 DF4S 
3112 
3113 *>& ERROR ITEM 46 
3114 me FATAL WRITE CHECK ERROR (MESSAGE) 
3115 x TEST ERR PC TST PC ORIVE CYLNOR TRACK SECTOR 
3116 re STMPO SERRPC SREGO CHKORV CYL.OS TRK.ODS SEC. DS 
3117 re RPCS1 RPCS2 RPOS1 RPCC RPCA RPOA 
3118 eS RP. REG RP. REG+10 RP. REG+12 RP. REG+36 RP. REG+34 RP. REG+06 
3119 eS RPER1 RPERZ RPERZ RPWC RPBA RPOB 
3120 ;* RP.REG+14 RP. REG+4O RP. REG+42 RP. REG+2 RP. REG+4 RP. REG+22 
3121 ;* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
3122 
3123 004616 044672 EM46 
3124 004620 045770 DH12 
3125 004622 047470 DT4S 
3126 004624 047676 DF4S 
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004626 
004634 
004636 
004642 
004646 
004650 
004656 
004660 
004664 
004672 


004674 
004700 
004702 


06-SEP-77 


012737 


000005 


012706 


012737 


012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 
012716 
000002 


013737 


16: 20 


177777 


001226 
001224 


177777 


001226 
177777 


001100 
001140 
001100 
022606 


177777 


005074 
000176 
000174 
000004 
001160 
001210 


001414 


001226 


001226 


001224 


000020 
000022 
000030 
000032 
000034 
000036 
023606 
023610 


001115 
001106 
001110 


000004 
001140 
001142 
174056 


001140 
001142 


001150 
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ERROR POINTER TABLE 


.SBTTL START OF PROGRAM 
START3: MOV #-1, d#BUSADR +GET BUSADR FLAG 
BR STRT1IA 
START: CLR O@#BUSADR +CLR BUSADR FLAG 
STRTIA: CLR OFCNTRLC +NO CONTROL "C" 
BR START 
START: MOV #-1, d#BUSADR + SET BUSADR FLAG 
BR STRT2A 
START2: CLR O#BUSAOR +CLR BUSAOR FLAG 
STRTZA: MOV #-1, d#CNTRLC +SET CONTROL "C" FLAG 
START: RESET 
.SBTTL INITIALIZE THE COMMON TAGS 
+>+CLEAR THE COMMON TAGS (SCMTAG) AREA 
MoV #SCHTAG., R6 ++FIRST LOCATION TO BE CLEARED 
CLR (R6)+ ++CLEAR MEMORY LOCATION 
CMP #SHR,RO ;; DONE? 
BNE he ++LOOP BACK IF NO 
Mov #STACK, SP ++SETUP THE STACK POINTER 
++ INITIALIZE A FEW VECTORS 
MOV #SSCOPE, OBIOTVEC +; 10T VECTOR FOR SCOPE ROUTINE 
MOV #340, OHIOTVEC+2 7 LEVEL 7 
MoV RSERROR, OSENTVEC 7; EMT VECTOR FOR ERROR ROUTINE 
MOV #340, SHEMNTVEC+2 7 LEVEL 7 
MOV SSTRAP,. SETRAPVEC +; TRAP VECTOR FOR TRAP CALLS 
MoV 8340, SETRAPVEC+2; LEVEL 7 
MOV #176543, SHINUM ;;PRIME THE RANDOM NUMBER GENERATOR 
Mov #123456. S$LONUM ;;BOTH HIGH AND LOW WORDS 
CLR STIMES ++ INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ++CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX +;ALLOW ONE ERROR PER TEST 
MoV . , SLPAOR +; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV , SLPERR ++SETUP THE ERROR LOOP ADDRESS 
*++SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MoV Q@FERRVEC.-(SP) ;; SAVE ERROR VECTOR 
MoV #O4S. Q8ERRVEC -¢; SET UP ERROR VECTOR 
MOV #OSHR, SHR +;SETUP FOR A HARDWARE SWICH REGISTER 
MoV SODISP.DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1, 9SHR ++ TRY TO REFERENCE HAROWARE SWR 
BNE 66$ ++BRANCH IF NO TIMEOUT TRAP OCCURRED 
+,AND THE HARDWARE SWR IS NOT = -1 
BR 65$ ++BRANCH IF NO TIMEOUT 
64S: or #65$, (SP) +;SET UP FOR TRAP RETURN 
! 
65S: MOV #SWREG. SHR +;POINT TO SOFTWARE SWR 
MoV #0 1SPREG, DISPLAY 
66S: MOV (SP)+,@#ERRVEC +; RESTORE ERROR VECTOR 
MOV #SREGAD, RO FIRST ADDRESS 
1$: CLR (RO)+ +CLEAR VARIABLE STORAGE 
CMP #SBELL.RO ; DONE? 
BNE 1$ ; NO--BRANCH 
MoV OETPS, DESTPS ;SETUP THE STATUS AND BUFFER REG'S 


SEQ 0059 
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013737 
005227 
001032 


004737 


104401 
104401 


001416 
177777 


000042 


047712 
000042 


000011 
050012 
000041 


050306 
050402 


050210 
021344 
000042 
001140 


000001 
177777 
050404 


177777 
001224 
000340 


001215 
043100 


044040 
044040 


001152 


000046 


000041 


100000 


000176 


001134 


001104 


O34454 
000000 


177776 


1 § 
MACY11 30(1046) 


INITIALIZE THE COMMON TAGS 


4$: 


23: 


35: 
. SBTTL 


675: 
68S. 


SRT INT: 


SETVEC: 


11: 


1S: 


MOV OtTPB, deSTPB 
INC #-1 
BNE 3$ 
CMP 0442, 846 
BNE 4§ 
TYPE - TITLE 
TST 42 
BNE 2$ 
CMPB #11,41 
BNE 2$ 
TYPE , LOADRV 
TSTB ae41 
BEQ 3$ 

JSR PC, $S1ZE 
CMP S$LSTAD, #100000 
BHIS 3$ 

TYPE , NOLOAD 

PC, STK 

ST 
BNE 67% 
CMP SUR, #SWREG 
BNE 685 

GTSWR 
BR 685 
MOVB #1, SAUTOB 
INC #-1 
BNE SRTINT 

JSR PC, GETADR 
TYPE - SCRLF 

JSR PC, a#LP. AVL 
CLR aePS 
MOV #1. S1CNT 
JSR PC, @#GE TSHR 
JSR PC, d#ST. CLK 
JSR PC, RPINIT 
MoV #-1, SAVEFG 
ADD #-1,40 
BCC 11$ 

TST CNTRLC 
BNE SRTORV 
MOV #PR7,PS 
CLR R4 

TYPE , SCRLF 

TYPE » SYSTAT 
MoV R4,-(SP) 
TYPOS 

.BYTE 2 

.BYTE 0 

TYPE / MSG. SP 
TYPE / MSG. SP 
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+FOR THE TYPE * sedi 
T START 


NOT 
SACTH AUTOMATIC MOLE? 
; YES. SKIP TITLE PRINTOUT 
; TYPE THE PROGRAM'S TITLE 
;AUTO ACCEPT OR CHAIN MODE ? 
;BR IF EITHER 
;LOADED FROM AN RPO4/5/6 ? 
7BR IF NOT 
; INSTRUCT THE OPERATOR TO REMOVE THE PACK 
;0ON DRIVE O IF ORIVE O 1S TO BE TESTED 
;LOADED FROM PAPER TAPE ? 
7BR IF NOT 
;SIZE THE MEMORY 
+ 16K OR MORE ON THE SYSTEM ? 
-BR IF YES 
; INFORM THE OPEATOR THAT THE ‘XXDP‘ LOADER 
;WILL BE OVERWRITTEN 

ON THE TTY KEYBOARD INTERRUPT 


JSR NT + TURN 
3 —. + SOF THARE SWITCH REGISTER 


++ARE WE RUNNING UNDER XXDP/ACT? 
++BRANCH IF YES 

i SOFTHARE SWITCH REG SELECTED? 
++BRANCH IF NO 

++GET SOFT” SWR SETTINGS 


++SET AUTO-MODE INDICATOR 


+SEE IF FIRST START 

BR IF NOT 

4; W - CHECK THE RH11 ADDRESS 
+ CR-L 

CHECK FOR A LINE PRINTER 
ENSURE THE PRIORITY = 0 

+SET ITERATION COUNT TO 1 

+GO CHECK FOR CONTROL SWITCHES 
+ INITIALIZE THE CLOCK 

*CHECK THE DRIVE STATUS 

*+SET THE SAVE REGISTERS FLAG 
FIRST START ? 

-BR IF YES 

*CONTROL 'C* SWITCH SET ? 
+CONTINUE IF YES 

+SET PRIORITY TO 7 

+DRIVE TABLE POINTER 


+ CR-LF 
+; TYPE STATUS HEADING 


+;SAVE RY FOR TYPEOUT 

+; TYPE DRIVE NUMBER 

+;GO TYPE--OCTAL ASCII 
+2 TYPE 2 DIGIT(S) 

+; SUPPRESS LEADING ZEROS 
+ SPACES 

+ SPACES 


SEQ 0060 
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105764 


034366 


034376 


043174 
043147 
043126 
043164 
043137 
044040 
043212 
000001 


043217 
000002 


043224 


001215 
000010 


177776 
001224 


001222 
001220 
000001 


001220 
024352 
031654 


024352 
001232 


000001 
034366 


034502 


034456 
000400 


034456 
000011 


005550 
034376 


005550 
034376 


005550 


001222 


001232 


001220 


000041 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


23: 
3s: 
4§;: 


55: 
6$: 


SRTORV: 


9S: 
1$: 


2$: 


33: 


4§: 


55: 


DRVSTACRY) 
4§ 
5$ 
DRVTYP (RY) 
2$ 


3$ 

, NOTRP 
9$ 

, NOTPRS 
9$ 


+ CHECK DRIVE'S STATUS 
+BR IF UNSAFE 

7 BR iF ONL | NE 

;SEE IF OFFLINE a NONE X1 STENT 
+BR IF NONEXISTENT 

+BR IF OFFLINE 

+DRIVE NOT AN RPO4/5/6 
;CHECK NEXT DRIVE 
+DRIVE NOT PRESENT 

+ CHECK NEXT ORIVE 
DRIVE OFFLINE 

+PRINT DRIVE TYPE 


E UNSAFE 
+PRINT DRIVE TYPE 
DRIVE ONLINE 
+ SPACES 
+ ADDRESS OF RPOW MESSAGE 


8, 8$ 
#BITOO.ORVTYP(R4Y) ;RPOY ? 
7$ R IF 


; 


YES 
“ADDRESS OF RPOS MESSAGE 


#RPOS, 8S 
#B1TO1, DRVTYP(RY) ;RPOS ? 
$ BR IF Y 


? 
#RPO6, 8S 


Pp 
O#CNTRLC 


1$ 
SAVCSH, - (SP) 
C. SHR, (SP) 
 amathteai 


$ 

C. SWR, SAVCSH 
PC, LODFLT 
PC, d#GT. PRN 


4$ 

PC. LODFLT 
DRVSEL 

RO 


#1,R1 
DRVSTACRO) 
3$ 


S 
;RADDRESS OF RPO6 MESSAGE 
+; TYPE THE ORIVE TYPE MESSAGE 
+ re ADDRESS HERE 
+CR-L 
+ INCREMENT DRIVE NUMBER/TABLE POINTER 
FINISHED ? 
*+BR IF NOT 
+SET PRIORITY BACK TO ‘O' 
+CONTROL “C" START/RESTART? 
+ NO--BRANCH 
+GET THE PREVIOUS 'C. SHR’ CONTENTS 
+SET UP TO SEE IF ‘BITOO’ IS DIFFERENT 
71S ‘BITOO' DIFFERENT ? 
+BR IF NOT 
+STORE PRESENT 'C. SWR' VALUE 
;RESET PARAMETERS TO THEIR DEFAULT VALUES 
GET PARAMETERS 


+ SETUP DEFAULT PARAMETERS 
+NO DRIVES SELECTED 

*DETERMINE THE DRIVES THAT 
ARE AVAILABLE FOR TESTING 


+ aaa 


R1 


2$ 
OtSEEKFG 
spite. One. Oe 


OtSEEKFG 


#11.41 ;LOADED 


10% 


+CLEAR SEEK FLAG 
+DO SEEK BEFORE DATA TRANSFER? 
+ YES--BRANCH 


NO 
FROM AN RPO4/5/6 ? 
BR IF NOT 


SEQ 0061 
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DZR JAB. P11 o°SEP-77 1 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0062 
3296 005726 042737 000001 001232 BIC #81 TOO, ORVSEL 7CL EAR THE DRIVE O SELECTION BIT 
3297 0057 104401 043231 TYPE - DRIVES *DRIVES(S) TO BE TESTED’ 

3298 005740 005037 017550 CLR ESENDCT ;DETERMINE PASSES TO MAKE AND 

3299 005744 005000 CLR RO + THE ORIVES TO BE TESTED 

3300 005746 013701 001232 Mov OtORVSEL. R1 SANY DRIVES SELECTED? 

3301 005752 001004 BNE 6$ + YES--BRANCH 

et 005754 104401 043262 TYPE » NONE + "NONE' 

3304 005760 000137 017366 JMP o#SEOP +GO TO END OF PROGRAM 

3305 005764 006201 6$: ASR Ri ;REPORT THE ORIVES TO BE TESTED 
3306 005766 103011 BCC 7$ 

3307 005770 005237 017550 INC O#SENDCT +GIVE THIS DRIVE A PASS 

3308 005774 010046 MOV RO. - (SP) ++SAVE RO FOR TYPEOUT 

3309 005776 104403 TYPOS ++GO TYPE--OCTAL ASCII 

3310 006000 001 .BYTE 1 ++ TYPE 1 DIGIT(S) 

3311 006001 000 .BYTE 0 ++ SUPPRESS LEADING ZEROS 

3312 006002 005701 TST Ri +MORE ORIVES? 

3313 006004 001404 BEQ 8$ ;NO--BRANCH 

3314 104401 043267 TYPE , COMMA ae 

3315 006012 005200 7$: INC RO +FORM DRIVE NUMBER 

3316 006014 000763 BR 6$ 

3317 006016 013737 017550 017542 8%: MOV OSSENDCT, D#SEOPCT 

3318 006024 005737 001244 TST a#CLKSTA +KW11-P AVAILABLE 

3319 006030 003006 BGT RSTRT1 + YES--BRANCH 

3320 006032 032737 036000 001234 BIT #36000, d#¢TSTNNS ;NO--ANY TIMING TESTS TO BE PERFORMED? 
3321 006040 001402 BEQ RSTRT1 + NO--BRANCH 

3322 006042 104401 043271 TYPE , NOCLOK ;'NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED’ 
3323 006046 005737 001232 RSTRT1: TST DRVSEL ANY DRIVES SELECTED ? 

3324 006052 001002 BNE 1$ 7BR IF YES 

3325 006054 000137 004660 JMP STARTZ GET DRIVE SELECTION ENTRY 

3326 006060 005037 001254 1$: CLR CHKDRV + INIT. THE CHECK DRIVE KEY 

3327 006064 012737 000001 001256 MOV #1, ORVMSK *+START TO CHECK DESIRED DRIVES 
3328 006072 033737 001256 001232 RSTRT2: BIT DRVMSK.DRVSEL ; 1S THIS DRIVE SELECTED? 

3329 006100 001010 BNE DRVOK + YES--GO CHECK IF DRIVE IS READY FOR TESTING 
3330 006102 012706 001100 RESTART: MOV #STACK, SP + SETUP THE STACK POINTER 

3331 006106 005237 001254 INC CHKDRV +MOVE TO NEXT DRIVE NUMBER 

3332 006112 106337 001256 ASLB DRVMSK +POSITION THE MASK 

3333 006116 103753 BCS RSTRT1 BRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED 
4 006120 000764 BR RSTRTZ2 

3336 006122 013702 001254 DRVOK: MOV CHKORV, RZ ;PICKUP THE DRIVE NUMBER 

3337 006126 105762 034366 TSTB DRVSTACR2) + 1S DESIRED DRIVE ON-LINE? 

3338 006132 003005 BGT 1$ + YES, BRANCH 

3339 006134 104011 ERROR 11 ;DRIVE SELECTED 1S NOT ONLINE 

3340 006136 043737 001256 001232 BIC DRVMSK.ORVSEL ;CLEAR DRIVE'S SELECTION BIT 

3341 006144 756 BR RESTART + RETURN 

3342 006146 010237 004104 1S: MOV RZ, a#0PB. A +SET THE ORIVE NUMBER INTO THE OPB'S 
3343 006152 010237 004124 MoV R2. otOPB. B 

3344 006156 010237 004144 Mov R2. d#OPB. C 

3345 006162 010237 O04%164 MoV R2. a#OTADPB 

3346 006166 004737 024766 JSR PC, @#LOCND +LOAD COMMAND INTO DPB. B AND DPB. C 
3347 006172 012737 017366 001252 MOV @SEOP,a8BYPASS ; IF ERROR GO TO END OF PROGRAM 
3348 006200 112737 000020 004105 MOvB #FNT22/256..0PB.A+1 {ASSUME 16 BIT FORMAT 

3349 006206 032737 000001 001220 BIT #81700. C. SHR +16 BIT FORMAT REQUESTED ? 

3350 006214 001402 BEQ 2$ *BR IF YES 

3351 006216 105037 004105 CLRB OPB. Ati ;CLEAR THE 'FMT22' BIT 
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DZ2R JAB. P11 0 


06-SEP-77 


112737 


104401 
113737 


16: 2 
ret ht 004106 
eth o 004106 


044049 
043401 
000004 
004234 


000060 
00€330 


001215 
001364 001115 


23: 


35: 


4S: 


L 5 
MACY11 30(1046) 


oh dae Aa A+2 


RO, @#CALL. 


#@RECAL. sare. A+2 
#CALL.A 


RO. d#C 
- TESTN 


R2, -(SP) 


oO 


MSG. SP 
» SERIAL 


#4.R0 
aettanteie 


#'O.R2 


ERR. CT, SERMAX 


06-SEP-77 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


r 


16:22 PAGE 67 


SET THE FORMAT BIT PER OPB. Ati 
EXECUTE ag nanny 


+60 EXECUTE THE COMMAND 
+; ‘TESTING ORIVE 
+ SAVE R2 FOR TYPEOUT 


si TYRE 


; AL NUMB 
FOUR DIGITS TO TYPE 
MBER 


SERIAL NU 


, 


(S$) 
UPPRESS LEADING ZEROS 
PACES 


+ ZERO 
;PUT THE NEXT DIGIT 
TO R2 


*MAKE IT ASCII 


; SAVE 
; TYPE 


iT 


;ALL DIGITS TYPED? 
NO -- BRANCH 


SETUP MAX ERROR COUNT 


SEQ 0063 


n 5 
MD-11-DZRJA-B RPOY/5/6 5 tate AND READ/WRITE TEST  MACY11 30(1046) 06-SEP-77 16:22 PAGE 68 
DZR JAB. P11 06-SEP-77 16: 20 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 
3382 
3383 .SBTTL #888 TESTS #088 
3384 


a, a, as es aes aes oes Oe, oes aes aes See, ee, Oe, oes aes aes aes oe 
2 aes es es es ee, es oe, es Oe, oe, oes ee, ee, es oes aes ees oe 
A a, ns es es es, es ee, es oes oes oes ees oe, oes ees ees aes oe 


+KIN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
2 THEIR DEFAULT VOLUES (UNLESS SPECIFIED OTHERWISE) ARE: 


SMNEHONIC VALUE VARIABLE 

;* 

; KR 1 ITERATIONS (REPEATS) 

; KFC 0 FIRST CYLINDER ADDRESS 

dee 410 OR 814 LAST ST ADDRESS 
KIC 1 INCREMENT VALUE 

ENC OF NC1 FC+IC NEW OR MODIFIED CYLINDER 

;x ADORRESS 

> *NC2 LC-IC NEW OR MODIFIED CYLINDER 

4 ADDRESS 

KFT 0 FIRST TRACK ADDRESS 

+*LT 18 LAST TRACK ADDRESS 

;KIT 1 INCREMENT VALUE 

_ FT+iT NEW OR MODIFIED TRACK ADDRESS 

+xFS 0 FIRST SECTOR ADDRESS 

7*LS 21 LAST SECTOR ADDRESS 


37: BA: BA: BA: BZ: BA: KA: BA: BZ: BA: BA: BZ: BA: BZ: BZ: KC: KC: KC: Ok 
347: BA: BA: BA: BA: BZ: KA: BA: A: BA: BZ: BZ: BA: BA: KC: KZ: KC: KC: 
37: BA: BA: BA: KZ: BZ: BA: BZ. BZ: BZA: BZ: KZ: BC: BA: 7: KC: KC: OKC: OK 


3417 
3418 .SBTTL &X&xk SEEK TESTS ¥%% 
3419 


37% 27% 27% 2 7B 2 7B 7K = 7E 7E LE 1, a, a, ee, ee, es es es es 
, aes ee, A A A es A ee ee, ee ee, ed ee, ees ees ee es 
, ed ee, A A A A A ed ee ed ed ee ee eee eee es ee 


;STHE SEEK TESTS WILL BE EXCUTED USING IMPLIED ae THESE 
;KIMPLIED SEEKS WILL BE PERFORMED BY “READ HEADER AND 

; DATA” COMMANDS TO TRACK “FT” SECTOR "FS" OF THE DESIRED CYLINDER. 
; THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 

; RTRACK/SECTOR WORDS OF THE HEADER ARE READ. 


342 BA: BA: BA: BA: BA: BA: BA: BA: BA: BA: BC: BA: BA: BA: A: KC: EZ: A 
372 BA: BA: BA: BA: BZ: BZA: BA: BA: BA: BA: B22 B74: BA: BA: EC: BC: EC: Ok 
342 BA BC: BA: BA: BA: BA: BA: BZA: BA: BA: BA: BC: BA: B/: BC: RC: RC: 


34 36 5 RERAAAAAAARAA AAA AAA AAT A AAA AAA AAA AAA AA AAA AA AAA AA AAA AA AAA AAA ES 
3437 +4TEST O RECAL/SEEK TEST 


MD-11-DZRJA-B RPO4/S/6 MECHANICAL AND err TEST 


DZR JAB. Pit 


000240 
033737 
001002 
000137 
012737 


000004 


000240 
033737 
001002 


000137 
012737 
004737 
012737 
013777 
013737 
112737 
113737 


113737 
113737 


06-SEP-77 16: 20 


001424 


006516 
000000 


024610 
006500 


025144 


001426 
006674 
000001 


024610 
006656 


001526 
001516 


001234 
001102 


001110 


001106 


001234 
001102 


001110 
172360 
001204 
001115 
004134 
004154 
004135 


’ 
’ 

. 
’ 
, 


64S: 


TESTO: 


EX1TO: 


N 5 
MACY11 30(1046) 


RECAL/SEEK TEST 


06-SEP-77 16:22 PAGE 69 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND cote SEEK FORWARD TO CYLINDER “LC” AT 


THE COMPLETION OF BOT 


H COMMANDS STATUS INDICATIONS ARE 


CHECKED TO ENSURE NO ERRORS OCCURRED. 
| eae tae ttle aa aaa tance ciate: 


SCOPE 


a8 1TS+<0%2), eae +00 THIS TEST? 
64S RANCH 


TST1 
40, a8STSTNN 


PC, LODPRM 
#TESTO. OESLPERR 
STSTNM. @DISPLAY 
OERPT. STIMES 
#25. , SERMAX 
#RECAL, O80PB. A+Z 


YES--B 
;NO--GO TO THE NEXT TEST 
;SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
+LOAD THE PARMETERS FOR THE TEST 
+ SETUP THE LOOP ON ERROR ADDRESS 
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
+GET THE ITERATION COUNT 
+MAX ERRORS ALLOWED FOR TEST 

+ RECAL=COMMAND 


OtFS, 9#0PB.B+10 -FS 


OFT, O#0PB. B+11 


sFT 


O4LC, O#0PB. B+12 7 LC 


#EXITO. aeBYPASS 
#TESTO. SLPAOR 
#STACK. SP 

RO. a#CALL. A 

RO. d#CALL. B 


;GO TO EXITO ON ERROR 
;SETUP LOOP ADDRESS 
;SET UP STACK POINTER 
;GO EXECUTE THE COMMAND 
+O gates THE COMMAND 
oL 


4 + a weemmamaet °° 17g ° nana aeemannetaenaramamnaettees 


Pe 263426363 = HE 
o 
m 


Se ee ee ee ee 


TST! 


64S: 


T1 


SEEK/SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 


TO i cal “7. "LS 


" FOLLOWED BY A REVERSE SEEK CYCLE TO 


"FT", "FS". AT THE COMPLETION OF EACH SEEK. THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 

"LC" WILL DEFAULT TO 128 AND "FC", "FT". "LT". "FS". AND “LS” 
WILL DEFAULT TO 0 


3 5 RERAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA ALAA AAA AAA AAA AAA AAA AALS 


O#8 1 TS+<1%2>, TST 
645 


TST2 
#1, d8STSTNM 


PC, LODPRN 
TESTI, OUSLPERR 
STSTNM. dDISPLAY 


— +D0 THIS TEST? 
S--BRANCH 

;NO--GO TO THE NEXT TEST 

;SET UP TEST NUMBER AND 

*CLEAR THE ERROR FLAG (SERFLG) 

+LOAD THE PARMETERS FOR THE TEST 

+ SETUP THE LOOP ON ERROR ADDRESS 

;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
+GET THE ITERATION COUNT 

MAX ERRORS ALLOWED FOR TEST 


aSFS, aFOPB.B+10 : FS 


@tLS. a80P8. C+10 
OsFT, O8OPB. B+11 


, 


-LS 
;FT 


SEQ 0065 
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MO-11-DZ2RJA-B RPOY/5/6 MECHANICAL AND ee TEST MACY11 30(1046) 06-SEP-77 16:22 PAGE 70 
DZR JAB. P11 16: 20 


006672 


06-SEP-77 


113737 


000004 


000240 


012737 


004737 
012737 
013777 
013737 


001520 


025144 


001430 


007112 
000002 


024610 


025144 
001514 
001512 


001512 
007054 
001100 


025144 
001514 
001510 


004155 
004136 
004156 
001252 
001106 


001234 


001102 


004136 
004136 


004136 
001110 


004136 
004136 


SEEK/SEEK TEST 
MOVB ooh Peet C+it cLT 


ot 2 ;-LC 

MOV #EXIT1, @BYPASS ;GO TO EXIT1 ON ERROR 
MOV TESTI, SLPAOR  ; SETUP LOOP ADDRESS 

TEST1: MOV STACK, SP +SET THE STACK POINTER 
JSR RO. @#CALL. C +GO EXECUTE THE COMMAND 
JSR RO, @#CALL. B +GO EXECUTE THE COMMAND 


EXIT1: SCOPE + LOOP 

+s AXKKAAAAAAAAAAAAAAA AAA AA AAA AAAA AAA AAA AAA AAA AAA AAA AAA AAA TAAL 
+RTEST 2 INCREMENT/SEEK TEST 

re THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
re CYLINDER ADDRESS FROM "FC" TO “LC” BY THE INCREMENT "IC". 
re WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

:* "LC" REVERSE SEEK CYCLES ARE INITIATED; STARTING 

;* AT THE LAST LEGAL "NC" AND DECREMENTING BY “IC” 

;x UNTIL “NC” IS LESS THAN “FC”. AT THE COMPLETION OF EACH 

rm SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

eS ENSURE PROPER OPERATION. 


> Seana tS. ARE eg ee eRCat trate ee nt et 


NOP 

BIT #8 1TS+<2%2>, TSTNMS ;DO THIS TEST? 

BNE 64S ; YES--BRANCH 

JMP TST3 ;NO--GO TO THE NEXT TEST 


64S. MoV #2. O#STSTNM +SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 

JSR PC, LODPRN +LOAD THE PARMETERS FOR THE TEST 
MoV #TEST2, O#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MoV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MoV OERPT. STINES +GET THE ITERATION COUNT 
MOVB #25. . SERMAX +MAX ERRORS ALLOWED FOR TEST 
MoV #15, SLPADR + SETUP LOOP ADDRESS 

18: MovB OFS. ot0PB.B+10 -FS 
MOovB OFT, O8O0PB. B+11 FT 
MOV #EXIT2, OSBYPASS ;GO TO EXITZ ON ERROR 

TEST2: MOV OtFC, O#0PB. B+12 7 FC 


Mov #., SLPERR ;SETUP THE ERROR LOOP ADDRESS 
- MoV #STACK. SP ;LOAD THE STACK POINTER 
INCSK: 
JSR RO. d@CALL. B +GO EXECUTE THE COMMAND 
ADD atic. dé0PB. B+12 ;MOVE TO NEXT CYLINDER 
CMP @tLC, deOPB.B+12 ; OUT OF CYLINDERS? 
BGE INCSK >NO--BRANCH 
MoV @tLC, dt0PB. 8+12 
MoV #.. SLPERR ;SETUP THE ERROR LOOP ADDRESS 
— MoV #STACK. SP ;LOAD THE STACK POINTER 
K: 
JSR RO. atCALL. B ;GO EXECUTE THE COMMAND 
SuB atic, de0PB. B+12 
CMP atFc, d80PB. B+12 
BLE DECSK 
EXIT2: SCOPE ; LOOP 


SEQ 0066 


MO-11-DZRJA-B RPO4Y/5/6 un AND —— TEST 


DZ2R JAB. P11 


007112 
007112 
007114 
007122 
007124 
007130 


007136 


06-SEP-77 


000240 
032737 
001002 
000137 
012737 


004737 
012737 
013777 
013737 
112737 
012737 


000137 
012737 


001432 


007306 
000003 


024610 


025144 
001512 


001434 


007674 
000004 


001234 


001102 


001110 
171764 
001204 
001115 
001106 
004134 
004135 
001252 
004136 
001110 


001110 


001234 


001102 


, 


;® 
+x 
;% 
Pe | 


64S: 


1S: 


TEST3: 


1$: 


EXIT3: 


C 6 
MACY11 30(1046) 


INCREMENT/SEEK TEST 


STEPPING SEEK T 


06-SEP-77 16:22 PAGE 71 


ee ae ae ee 


THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 


8.16.3 


AT THE COMPLETION OF EACH SEEK 


64.128, AND 256. 
COMMAND THE "PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER 
OPERATION. 


> ite tench RC RRR eB 


B 
SCOPE 


ees. +00 bese TEST? 


TST4 
#3. OUSTSTNM 


PC, LODPRN 
HTEST3, OSSLPERR 
STSTNM, @DISPLAY 
OERPT, STINES 
#25. . SERMAX 
#15. SLPAOR 
OFFS, Ot0PB. B+10 


S--BR 
+NO--GO TO THE NEXT TEST 
;SET UP TEST NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 
+LOAD THE PARMETERS FOR THE TEST 
+ SETUP THE LOOP ON ERROR ADDRESS 


;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


+GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
_ TEST LOOP ADDRESS 


OFT, O#0PB. B+11 -FT 


#EXIT3. OSBYPASS 
et diate 


RSTACK, SP 
Ri, d#DPB. B+12 
RO. d#CALL. B 


R1 
R1,ad8@LC 
1$ 


A 3 TO BYPASS ON ERROR 

;SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 

+GO EXECUTE THE COMMAND 

7 CYLINDER 1 

;SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 

; DESIRED CYLINDER 

;GO EXECUTE THE COMMAND 

;MOVE TO NEXT CYLINDER 

; DONE? 

;NO--LOOP 


js MERAAAAAAARAATAAAARAAAT AAA AAA AAA AA AAA AAA AA AA AAA AAA AAA AAAS 
OSCILLATING SEEK TEST 


;aTEST 4 


Pt 2G 34 24 04 


‘ 
, 
: 
, 
, 


64S: 


TO 
a ae 


app Baad WILL COMMAND SEEK CYCLES FROM "FC" TO “NC” AND BACK 


"NC" STARTS AT "FC" AND INCREMENTS BY “IC" UP TO CYLINDER 


THEN 1S DECREMENTED BY “IC” BACK TO CYLINDER “FC”. AT THE 


COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
EXAMINED TO ENSURE PROPER OPERATION. 


5 o RAAAAAAAAAA AAA AA AAAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA 
TST4: 


1 Natt teat — +D0 THIS TEST? 


TSTS 
#4, OSSTSTNN 


ES--BRANCH 
+NO--GO TO THE NEXT TEST 
;SET UP TEST NUMBER AND 


SEQ 0067 


D0 6 
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DZR JAB. P11 06-SEP-77 16: 20 T4 OSCILLATING SEEK TEST SEQ 0068 
3606 CLEAR THE ERROR FLAG (SERFLG) 
3607 007332 004737 024610 JSR PC, LOOPRN ;LOAD THE PARMETERS FOR THE TEST 
3608 007336 012737 007432 001110 MOV RTESTY, O#SLPERR ; SETUP THE LOOP ON ERROR ADDRESS 
3609 007344 013777 001102 171570 MOV STSTNM, @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
3610 007352 013737 001506 001204 MOV OERPT, STIMES +GET THE ITERATION COUNT 
3611 007360 112737 000031 001115 MOVB #25. . SERMAX ;MAX ERRORS ALLOWED FOR TEST 
3612 007366 012737 007374 001106 MOV #15, $L PADR + SETUP LOOP ADDRESS 
3613 007374 113737 001524 OO4134 15: MOVB OtFS, #0P8.8+10 -FS 
361% 007402 113737 001516 004135 MOVB OeFT, O#OPB. B+11 -FT- 

3615 007410 012737 007672 001252 MOV WEXITY. ORBYPASS G0 TO EXITY ON ERROR 
3616 007416 005002 CLR R2 ;CLEAR STALL SWITCH (NO STALL) 
3617 007420 032737 010000 001220 BIT #SW12,08C.SWR ;STALL REQUIRED? 

3618 007426 001401 BEQ TEST4 + NO--BRANCH 

3619 007430 005102 COM R2 + YES--SET SWITCH 

3620 007432 013701 001510 TEST4: MOV atFC.R1 +SET NC TO FC 

3621 007436 005037 001336 CLR a*#STALLO s+ START AT ZERO IF STALLS REQUIRED 
3622 007442 012737 007442 001110 MOV #. - SLPERR + SETUP THE ERROR LOOP ADDRESS 
3623 007450 012706 001100 MOV aSTACK, SP *LOAD THE STACK POINTER 
3624 007454 010137 004136 1$: MOV Ri, d#OPB. B+12 NC 

3625 007460 004037 025144 JSR RO. d#CALL. B ; GO EXECUTE THE COMMAND 
3626 007464 005702 TST R2 + STALL 

3627 007466 001403 BEQ 2$ NO-SBR ANCH 

3628 007470 004037 026364 JSR RO. d#STALL +YES-GO TO STALL ROUTINE 
3629 007474 001336 .WORD STALLO + TIME POINTER 

3630 007476 013737 001510 004136 23: MOV FC, a#0PB.B8+12 ;FC 

3631 007504 004037 025144 JSR RO. d#CALL. B +GO EXECUTE THE COMMAND 
3632 007510 005702 TST R2 + STALL? 

3633 007512 001413 BEQ 3$ + NO--BRANCH 

3634 007514 004037 026364 JSR RO. d#STALL + YES--GO TO STALL ROUTINE 
3635 007520 001336 .WORD STALLO + TIME POINTER 

3636 007522 005237 001336 INC d#STALLO ; UPDATE THE TIME 

3637 007526 023737 001362 001336 CMP O@#NXSTAL, ASTALLO ; TIME TO BIG? 

3638 007534 003347 BGT 1$ ; NO--BRANCH 

3639 007536 005037 001336 CLR O*STALLO + YES--START OVER AT ZERO 
3640 007542 063701 001514 35: ADD atic, Ri +MOVE TO NEXT CYLINDER 
3641 007546 020137 001512 CMP R1, d#LC +LAST CYLINDER COMPLETED? 
3642 007552 003740 BLE 1$ + NO--BRANCH 

3643 007554 013701 001512 MoV O#LC.R1 +SET NC TO LC 

3644 007560 012737 007560 001110 MoV #. - SLPERR +SETUP THE ERROR LOOP ADDRESS 
3645 007566 012706 001100 MoV #STACK, SP *LOAD THE STACK POINTER 
3646 007572 010137 004136 4S: MoV R1,ad#0P6.B+12 ;NC 

3647 007576 004037 025144 JSR RO. @#CALL. B +GO EXECUTE THE COMMAND 
3648 007602 005702 TST R2 + STALL? 

3649 007604 001403 BEQ 5$ + NO--BRANCH 

3650 007606 004037 026364 JSR RO. d#STALL + YES--GO TO STALL ROUTINE 
3651 007612 001336 .WORD STALLO + TIME POINTER 

3652 007614 013737 001512 O04136 5%: MoV @4LC, O80PB. B+12 -LC 

3653 007622 O04037 025144 JSR RO. @sCALL. B +GO EXECUTE THE COMMAND 
3654 007626 005702 TST R2 + STALL? 

3655 007630 001413 BEQ 6$ ;NO--BRANCH 

3656 007632 004037 026364 JSR RO, d#STALL +YES--GO TO STALL ROUTINE 
3657 007636 001336 .WORD STALLO + TIME POINTER 

3658 007640 005237 001336 INC @tSTALLO ;UPDATE STALL TIME 

3659 007644 023737 001362 001336 CMP @tNXSTAL. @#STALLO ; TIME TOO BIG? 

3660 007652 003347 BGT 4§ ; NO--BRAN 


CH 
3661 007654 005037 001336 CLR @*STALLO ;YES--SET STALL TIME BACK TO ZERO 
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DZR JAB. P11 


007660 


007672 


007674 
007674 
007676 
007704 
007706 
007712 


06-SEP-77 


163701 
020137 
002340 
000004 


000240 
033737 
001002 
000137 
012737 


004737 
012737 
013777 


001514 
001510 


001436 


010074 
000005 


024610 


001510 


001234 


001102 


001110 
171202 
001204 
001115 
001106 
004134 
004135 
001252 


001110 


OSCILLATING SEEK TEST 


6$: SUB atic. R1 +NEXT CYLINDER 

CMP Ri, oeFC + DONE? 

BGE 4§ ;NO--BRANCH 
EXIT4: SCOPE + LOOP 
js MERAAAAAAAAAAAAAAAAAAAAAAAA LAAT AAA AAA AAAS AAA AAA AAA AAA 
+aTEST 5 CONVERGING/DIVERGING SEEK TEST 
re THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
rm ot FROM "NC1" AND "NC2" RESPECTIVELY, "NCi" WILL BE os 
* Y "IC" AND "NC2" WILL BE DECREMENTED BY "IC" UNTIL "NCI" IS 
;* GREATER THAN THE INITIAL VALUE OF “NC2" AND “NC2" IS 
;* LESS THAN THE INITIAL VALUE OF “NC1". AT THE COMPLETION OF 
ix EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
re ENSURE PROPER OPERATION. “NCi1" AND “NC2" DEFAULT TO 
re "FC" AND "LC" RESPECTIVELY. 


ee gmanagap ee deena tinleee tetiegese I Riemaat Mage ciate meee y 


NOP 

BIT O#81TS+<5%2>, TSTNNS ;00 THIS TEST? 

BNE 64S ; YES--BRANCH 

JMP TST6 NO--GO TO THE NEXT TEST 
64S: MOV #5, d#STSTNM SET UP TEST NUMBER 


AND 
*+CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LODPRN +LOAD THE PARMETERS FOR THE TEST 


MoV STESTS. SESLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MoV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV OeRPT, STIMES +GET THE ITERATION COUNT 
MOVB #25. , SERMAX +MAX ERRORS ALLOWED FOR TEST 
MOV #15. SLPAOR + SETUP LOOP ADDRESS 
1$: MOVB atFS, d#0PB.B+10 -FS 
MOVB OFT. O#DPB. B+11 7 FT 
MOV #EXITS, @eBYPASS ;GO TO EXITS ON ERROR 
TESTS: MOV OtFC.R1 + START NC1i AT FC 
MOV @4LC.R2 + START NC2 AT LC 
MoV #. - SLPERR +SETUP THE ERROR LOOP ADDRESS 
MoV a@STACK. SP +LOAD THE STACK POINTER 
18: MoV Ri, d#OPB. B+12 NC1 
JSR RO, d@CALL. B 60 EXECUTE THE COMMAND 
MoV RZ, o#DPB. B+12 NC2 
JSR RO, d#CALL. B ; GO EXECUTE THE COMMAND 
ADD atic. R1 NEXT NC1 
SUB atic, R2 +NEXT NC2 
CMP R1, d#LC + DONE? 
BGT EXITS + YES--BRANCH 
CMP R2,08FC ;? 
BGE 1$ + NO--BRANCH 
EXITS: SCOPE + LOOP 


js RERAAAAAAAAAAAA TIAA AAA TAA AAA AAA AAA TAA AAA AAA AAA AAA AAA AAAS 
+ *TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 


¢ 

;% IN THIS TEST A SEEK 1S DONE TO CYL "NC" THEN A SEEK TO 

t NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5. NOW “NC” IS UPDATED 
+ BY “IC” AND THE ABOVE SEQUENCE IS REPEATED UNITL “LC” IS 


, 
, 
, 


SEQ 0069 
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DZR JAB. Pil 06-SEP-77 16: 20 To SERVO ADDRESSING LOGIC NOISE GENERATOR SEQ 0070 
3718 :*% cannes” BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE ©” "NC" 
3719 eS 1S "FC". AT THE COMPLETION OF EACH SEEK COMMAND THE 
hn eS PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 

3722 +; MEXKAAAAAAAAAAA AAA AAAS AA AAA AAAS AA AAA AAA AAA AAA AAA AAA AAA 
3723 010074 TST6: 
3724 010074 000240 NOP 
3725 010076 033737 OO144O0 001234 BIT #8 1TS+<6%2>, TSTNMS ;DO0 THIS TEST? 
3726 010104 001002 BNE 64S i YES--BRANCH 
3727 010106 000137 010349 JMP TST? NO--GO TO THE NEXT TEST 
3728 010112 012737 000006 001102 64%: MOV #6, deSTSTNM SET UP TEST NUMBER AND 
3729 CLEAR THE ERROR FLAG (SERFLG) 
3730 010120 004737 024610 JSR PC, LODPRM ;LOAD THE PARMETERS FOR THE TEST 
3731 010124 012737 010204 001110 MOV RTESTG, OSSLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
3732 010132 013777 001102 171002 MOV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
3733 010140 013737 001506 001204 MOV OERPT, STIMES GET THE ITERATION COUNT 
3734 010146 112737 000031 001115 MOVB #25. , SERMAX MAX ERRORS ALLOWED FOR TEST 
3735 010154 012737 010162 001106 MOV #15, SLPADR +; SETUP LOOP ADDRESS 
3736 010162 113737 001524 OO4134 15: MOVB OtFS, de0PB.B+10 -FS 
3737 010170 113737 001516 004135 MOVB OFT, O#DOPB. B+11 7 FT 
3738 010176 012737 010336 001252 MOV #EXITG, SEBYPASS ;GO TO EXIT6 ON ERROR 
3739 010204 013701 001510 TEST6: MOV OFC. Ri PICKUP “FC” 
3740 010210 013702 001512 MOV @4LC,R2 ;FORM LAST CYLINDER THAT 
3741 010214 162702 000005 SUB #5,R2 + 1S AVAILABLE FOR TESTING 
3742 010220 012737 010220 001110 MOV #. . SLPERR ;+SETUP THE ERROR LOOP ADDRESS 
3743 010226 012706 001100 MoV #STACK, SP +LOAD THE STACK POINTER 
3744 010232 020102 18: CMP R1,R2 +LAST CYLINDER 
3745 010234 003040 BGT EXIT6 + YES--BRANCH 
3746 010236 010137 004136 MOV R1,e#OP6.6+12 ;NC 
3747 010242 004037 025144 JSR RO. d#CALL. B +GO EXECUTE THE COMMAND 
3748 010246 062737 OO00004 004136 ADD #4, a80PB.B+12 ;NC+4 
3749 010254 004037 025144 JSR RO. @#CALL. B +GO EXECUTE THE COMMAND 
3750 010260 162737 000003 004136 SUB #3. 080P8.8+12 ;NC+1 
3751 010266 O04037 025144 JSR RO, d#CALL. B 60 EXECUTE THE COMMAND 
3752 010272 062737 000002 004136 ADD #2. a#0PB. B+12 NC+ 
3753 010300 004037 025144 JSR RO. @#CALL. B GO EXECUTE THE COMMAND 
3754 010304 162737 000001 004136 SUB #1, d80P8. B+12 NC+2 
3755 010312 004037 025144 JSR RO, @#CALL. B ;60 EXECUTE THE COMMAND 
3756 010316 062737 O00003 004136 ADD #3. a80P8.8+12 ;NC+5 
3757 010324 004037 025144 JSR RO, d#CALL. B ; GO EXECUTE THE COMMAND 
3758 010330 063701 001514 ADD atic. Ri 
3759 010334 000736 BR 1$ 
key 010336 000004 EX!T6é: SCOPE + LOOP 
61 
3762 js REMAAAAAAAAAAAAAA AAA ATA AAA AAA AAA A AA TAA AAA AAA AAA AAA AAA AAAS 
3763 +*TEST 7 RANDOM SEEK TEST 
3764 
3765 re THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC' 
3766 mS "LC'. AFTER EACH SEEK, THE POS!TION OF THE DRIVE IS VERIFIED BY 
3767 rs READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
3768 re THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
3769 i* OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
3770 rm BETWEEN PARANTERS ‘FT’ AND ‘LT’. 


3772 jj RERAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA AAA AA ATA AS 
3773 010340 TST?: 
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3774 010340 000240 NOP 
3775 010342 033737 001442 001234 BIT a TSTNMS ;00 THIS TEST? 
3776 010350 001002 BNE ; YES--BRAN CH 
3777 010352 000137 010720 JMP fst 10 +NO--GO TO THE NEXT TEST 
3778 010356 012737 000007 001102 64%: MOV #7, deSTSTNN i SET UP TEST NUMBER AND 
3779 ; CLEAR THE ERROR FLAG (SERFLG) 
3780 010364 004737 024610 JSR PC, LODPRN ;LOAD THE PARMETERS FOR THE TEST 
3781 010370 012737 010462 001110 MOV #TEST7, O@SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
3782 010376 013777 001102 170536 MOV STSTNM, ADISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
3783 010404 013737 001506 001204 MOV @eRPT. STIMNES ;GET THE ITERATION COUNT 
3784 010412 112737 OO00031 001115 MOVB #25. , SERMAX ;MAX ERRORS ALLOWED FOR TEST 
3785 010420 113737 001516 004135 MOVB FT, OPB. B+11 ;LOAD STARTING TRACK ADDRESS 
3786 010426 112737 000105 004106 MOVB #SEEK, d#0PB. A+2 >; SEEK=COMMAND 
3787 010434 112737 000173 004126 MOVB #READHD. DPB. B+2 _# READ HEADER & DATA COMMAND 
3788 010442 013704 034514 MOV RPADR, RY UNIBUS ADDRESS OF THE RHi1 
3789 010446 012737 010716 001252 MOV #EX1T7, BYPASS ERROR TERMINATION ADDRESS 
3790 010454 012737 010462 001106 MoV #TEST7, SLPADR ;SETUP THE LOOP ON TEST ADDRESS 
3791 010462 012706 001100 TEST?: MOV #STACK, SP ;SETUP THE STACK POINTER 
3792 010466 013737 001510 004136 MOV FC, OPB. B+12 ; INITIAL CYLINDER ADDRESS 
3793 010474 023737 001510 001512 CMP FC.LC ;CYLINDER LIMITS THE SAME 7? 
3794 010502 001422 BEQ 1$ 7BR IF THEY ARE 
3795 010504 004737 023510 JSR PC. SRAND ;CYCYLE THE RANDOM NUMBER GENERATOR 
3796 010510 013746 023606 MoV $HINUM, - (SP) ;USE THE HIGH RANDOM NUMBER 
3797 010514 oO05046 CLR - (SP) ;UPPER DIVIDEND 
3798 010516 013746 001512 MOV LC. -(SP) > FORM THE DIVISOR 
3799 010522 005216 INC (SP) > INCREMENT 
3800 010524 163716 001510 SUB FC, (SP) ; SUBTRACT THE LOWER LIMIT 
3801 010530 004737 023612 JSR PC, SDIV + DIVIDE 
3802 010534 062637 004136 ADD A OPB.6+12 ;ADD THE REMAINDER TO THE INITIAL CYLINDER 
3803 010540 005726 TST (SP )+ ;DISCARD THE QUOTENT 
oo pee | 013737 OO4136 004116 ‘ MoV DPB. B+12.0PB.A+12 ;COPY NEW CYLINDER ADDRESS 

1 1$: 
3806 010550 012737 010550 001110 MOV #., SLPERR ;SETUP THE ERROR LOOP ADDRESS 
3807 010556 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
3808 010562 004037 025032 JSR RO. d#CALL. A 7GO EXECUTE THE COMMAND 
3809 010566 012737 010566 001110 MOV #., SLPERR ; SETUP THE ERROR LOOP ADDRESS 
3810 010574 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
3811 010600 113764 004104 9000010 MOVB DPB. A.RPCS2(R4) -; SELECT THE DRIVE 
3812 010606 016446 000020 MoV RPLACR4Y),.-(SP) ;GET THE LOOK AHEAD REGISTER 
3813 010612 006316 ASL (SP) ;ALIGN THE SECTOR ADDRESS 
3814 010614 006316 ASL (SP) ;ALIGN THE SECTOR ADDRESS 
3815 010616 000316 SWAB (SP) ;PUT ADDRESS IN LOWER BYTE 
3816 010620 105766 000001 TSTB 1(SP) > IN THE 1ST 20% OF SECTOR ? 
3817 010624 001401 BEQ 23 7BR IF YES 
3818 010626 105216 INCB (SP) + INCREMENT THE SECTOR ADDRESS 
3819 010630 105216 23: INCB (SP) ; INCREMENT THE SECTOR ADDRESS 
3820 010632 112637 004174 MOVB (3P)+,OTADPB+10 ;LOAD THE OPB 
3821 010636 013746 001630 MOV PRMLMT+22,-(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK 
3822 010642 005216 INC (SP) > INCREMENT IT 
3823 010644 122637 004174 CnPB (SP)+,DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ? 
3824 010650 103007 BHIS 4S ;BR IF NOT 
3825 010652 103403 BLO 3$ ;BR IF ADDRESS IS 2 GREATER 
3826 010654 105037 004174 CLRB DTADPB+10 ;RESET TO SECTOR ADDRESS O 
3827 010660 000403 BR i 


% ; CONTINUE 
3828 010662 112737 000001 004174 +3 MOVB #1, O0TADPB+10 ;RESET ADDRESS TO SECTOR 1 
4§: 
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3830 010670 004037 025144 JSR RO. d#CALL. B ;GO EXECUTE THE COMMAND 
3831 010674 105237 004135 INCB DPB. B+11 + INCREMENT THE TRACK ADDRESS 
3832 010700 123737 004135 001520 CMPB OPB. B+11.LT 7 MAXIMUM ? 
3833 010706 101403 BLOS EXIT? 7BR IF NOT 
3834 010710 113737 001516 004135 MOVB FT, OPB. B+11 ; RELOAD STARTING TRACK ADDRESS 
3835 010716 O00004 EXIT?7: SCOPE ;LOOP 7? 
3836 
3837 
3838 35 RXXXXKKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAAS 
A ;KTEST 10 SERVO SETTLE DOWN TEST 
3841 ;x THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 
3842 ;x THE DRIVE 1S ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
3843 ;x RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘NC1' AND ‘NC1i+IC' 
3844 ;x ('NC1' STARTS AT VALUE ‘FC'). AT THE COMPLETION OF 1000 (10) SEEKS, 
3845 ;x "NC1' IS INCREMENTED BY VALUE ‘'IC' AND THE SEQUENCE IS REPEATED. 
ae ‘S THE TEST 1S COMPLETED WHEN ‘NC1' HAS BEEN INCREMENTED BEYOND ‘LC’. 
3848 ;x WHEN THE SEEK COMPLETES. THE PROGRAM READS THE ORIVE'S LOOK-AHEAD 
3849 ;x REGISTER (RPLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
3850 ;x POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 
3851 ;x FOR THAT SECTOR. IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR 
3852 | IF THE POSITIONER 1S NOT ON CYLINDER (IF THE DRIVE 1S AN RPO. THE 
3853 ;x OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US). THE DRIVE 
3854 ;* WILL REPORT A 'WRU' ERROR. (RPOS/6'S MAY ALSO REPORT ‘NHS’ ERROR UNDER 
3855 ;x ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 
3856 ;x CORRECTLY. THAT THE DRIVE 1S MALFUNCTIONING, OR THAT A PACK WITH 
3857 fe MARGINAL SERVO TRACKS !S MOUNTED ON THE DRIVE. 
3858 ;x 
3859 ;x THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER TO DETERMINE 
3860 ;x WHETHER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSITION. THE 
3861 ;x TEST 1S OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN 
3862 ;x THE FIRST 80% OF THE SECTOR CURRENTLY UNDER THE HEAD. THE TEST WILL 
3863 ;x TRY TO ADDRESS THE NEXT SECTOR. BASED ON OBSERVATION. THE PROGRAM 
3864 ;x 1S ABLE TO START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF 
3865 38 THE TIME. 
3866 ;x 
3867 ;x THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
3868 ik HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
3869 ;* TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED 
3870 ;k RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 
3871 
3872 3 MARKER AAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
3873 010720 TST10: 
3874 010720 000240 NOP 
3875 010722 033737 001444 001234 BIT a#81TS+<10%2>. TSTNMS ;DO THIS TEST? 
3876 010730 001002 BNE 64$ ; YES--BRANCH 
3877 010732 000137 012024 JMP TST1 ;NO--GO TO THE NEXT TEST 
3878 010736 012737 000010 001102 64S: MoV $10. a8STSTNN SET UP TEST NUMBER AND 
3879 ;CLEAR THE ERROR FLAG (SERFLG) 
3880 010744 004737 024610 JSR PC, LODPRN ;LOAD THE PARMETERS FOR THE TEST 
3881 010750 012737 011126 001110 MOV #TEST10O, A@SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
3882 010756 013777 001102 170156 MoV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
3883 010764 013737 001506 001204 MoV @tRPT. STIMES ;GET THE ITERATION COUNT 
3884 010772 112737 000031 001115 MOvB #25. . SERMAX ;MAX ERRORS ALLOWED FOR TEST 


3885 011000 012737 011006 001106 MOV #15, SLPADR ; SETUP THE LOOP ADDRESS 


MD-11-DOZRJA-B RPO4Y/5/6 i. AND — TEST 


DZR JAB. Pil 


06-SEP-77 


112737 


012737 
012737 


000105 


047712 
030360 


004104 
034514 
042516 
012022 


011126 
001100 
000340 
001244 


170212 
001374 


170212 
001406 
011756 
027052 
000010 
000040 
000010 
004116 
004116 
000105 
177776 
000012 


000340 
040000 


004104 
042034 


000040 
000010 
037376 
001244 


000002 
000004 


004106 


001252 
001110 
177776 


000000 
023302 
001344 
000010 


000034 


001270 
000000 


177776 
000012 


000010 
023152 


000000 


1$: 


TEST10: 


18: 


23: 
35: 


4S: 


5S: 


6S: 


TST1OA€A: 
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SERVO SETTLE DOWN TEST 


WSEEK, 280PB. A+2 ; SEEK=COMMAND 

#WRITE,OTAOPB+2 + COMMAND 

FT, OTADPB+11 + TRACK ADDRESS FOR THE WRITE 
FC, OPB. A+12 CYLINDER ADDRESS FOR THE SEEK 
FC, OTADPB+12 + CYLINDER ADDRESS FOR THE WRITE 
FC, NC1 +STARTING CYLINDER 

IC. DELTA CYLINDER INCREMENT VALUE 
#-<256. 84. >,OTADPB+4 ; WORD COUNT 
#BUFFER.OTAOPB+6 ; BUFFER ADDRESS 

RO + PATTERN ae 


PC, SETBUF ; LOAD THE WRITE 

Ri CLEAR REGISTER 

DPB. A. R1 LOAD DRIVE ADDRESS 

RPADR. RY +UNIBUS ADORESS OF THE RH11 
PC. CLRQUE + CLEAR THE OPERATION QUEUES 
WEXITIO.BYPASS ;ERROR EXIT FROM TEST 

#. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
#STACK. SP +LOAD THE STACK POINTER 
#PR7, d8PS SET PRIORITY TO 7 

CLKSTA +SEE WHICH CLOCK ON SYSTEM 
3$ BR IF NO CLOCK 

1$ BR IF KWi1-L CLOCK 

aPKV, - (SP) SAVE THE VECTOR 

PKV, -(SP) + SAVE THE VECTOR ADDRESS 

2$ + CONTINUE 

OLKV, - (SP) + SAVE THE ‘'L' CLOCK VECTOR 
LKV, - (SP) +SAVE THE VECTOR ADDRESS 


#TST10B.a(SP) ;CHANGE THE VECTOR 

#DORTI.ARPVEC ;CHANGE THE RPOY/RPOS VECTOR 

#8.,. SEKTMR ;LOAD THE SEEK TIMER 
#BITOS.RPCSZ2(R4) ; INIT THE MASSBUS 

R1,RPCS2(R4) +RESELECT THE DRIVE 

DPB. A+12,.RPCACRY) ;LOAD THE CYLINDER ADDRESS 

DPB. A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE 
#SEEK.RPCS1(R4) > START THE SEEK 


aePs +CLEAR THE PRIORITY 
RPDS1(R4) *HAS THE DRIVE FINISHED ? 
5% BR IF IT HAS 

+WAIT FOR THE OPERATION TO COMPLETE 
4§ + CONT I NUE 
#PR7, d8PS + CHANGE PRIORITY TO MAX 
SBITIG,RPDSI(R4Y) ;FERROR ? 
6$ :BR IF NOT 
#0PB.A,R2 ; PB POINTER 
Pc, SVRH11 +SAVE THE REGISTERS 
23 ERROR DURING SEEK 


#BITOS.RPCSZ2(R4) ; INIT THE MASSBUS 
Ri, RPCS2(R4) +RESELECT THE DRIVE 
# ISR, ARPVEC +SETUP THE RPOY/RPOS VECTOR 


CLKSTA +WHICH CLOCK 

TST10A BR IF NONE 

2(SP),a(SP) +RELOAD THE CLOCK VECTOR 
#4, SP CORRECT THE STACK POINTER 


SEQ 0073 
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3942 011364 012737 011364 001110 MoV #. , SLPERR s+ SETUP THE ERROR LOOP ADDRESS 
3943 011372 012706 001100 MOV STACK, SP +LOAD THE STACK POINTER 
3944 011376 110164 000010 MOVB Ri, RPCS2(R4) +SELECT THE ORI 
3945 011402 016446 000020 MOV RPLACRY),-(SP) ;GET THE LOOK AHEAD REGISTER 
3946 011406 006316 ASL (SP) +ALIGN THE SECTOR ADDRESS 
3947 011410 006316 ASL (SP) +ALIGN THE SECTOR ADDRESS 
3948 011412 000316 SWAB (SP) +PUT ADDRESS IN LOWER BYTE 
3949 011414 122766 000300 000001 CMPB #300. 1(SP) ; IN THE LAST 20% OR SECTOR ? 
3950 011422 001001 BNE 2$ +BR IF NOT 
3951 011424 105216 INCB (SP) s INCREMENT THE SECTOR ADDRESS 
3952 011426 105216 2S: INCB (SP) ; INCREMENT THE SECTOR ADDRESS 
3953 011430 112637 004174 MOVB (SP)+,DTROPB+10 ;LOAD THE DPB 
3954 011434 012746 001630 MoV PRMLMNT+22,-(SP) ;PUT MAXIMUM SECTOR ADDRESS ON THE STACK 
3955 011440 005216 INC (SP) ; INCREMENT PAST THE MAXIMUM ADDRESS 
3956 011442 122637 004174 CMPB (SP)+,DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ? 
3957 011446 101007 BHI 4§ 7BR IF NOT 
3958 011450 103403 BLO 3$ ;BR IF ADDRESS IS 2 GREATER THAN MAXIMUM 
3959 011452 105037 004174 CLRB OTADPB+10 RESET TO SECTOR ADDRESS 0 
3960 011456 000403 BR 4§ + CONT INUE 
3961 011460 112737 000001 004174 35: MOVB #1, DTAOPB+10 ;RESET ees TO SECTOR 1 
3962 011466 012703 004170 4$: Mov #OTADPB+4, R3 OINTE 
3963 011472 012764 000111 000000 MOV #ORVCLR. RPCS1(R4) CLEAR THE DRIVE 
3964 011500 012364 000002 MOV (R3)+,RPWCC(R4Y) ;LOAD THE WORD COUNT 
3965 011504 012364 000004 MOV (R3)+,RPBACRY) ;LOAD THE BUFFER ADDRESS 
3966 011510 012364 000006 MOV (R3)+,RPDACRY) ;LOAD THE TRACK/SECTOR ADDR 
3967 011514 005037 004202 CLR DTADPB+16 RESET ‘DONE’ INDICATOR 
3968 011520 012737 004164 034426 MOV #OTADPB. TRNSWT ;LOAD ‘TRANSFER’ DPB ADDRESS 
3969 011526 010137 034500 Mov R1, OTUW +ADDRESS OF DRIVE TRANSFERING 
3970 011532 112761 000001 034356 MOVB #1,ORVACT(R1)  ;SET DRIVE ACTIVE INDICATOR 
3971 011540 006301 ASL Ri + SHIFT DRIVE ADDRESS 
3972 011542 012761 001750 034460 MOV #1000.,TIMER(R1) ;SETUP THE OPERATION TIMER 
3973 011550 006201 ASR R1 RESTORE R1 
3974 011552 013764 004166 000000 MoV DTADPB+2, RPCS1(R4) +START THE OPERATION 
3975 011560 005037 177776 CLR a#PS +CLEAR THE PRIORITY 
3976 011564 004037 025544 JSR RO, ORVCL1 *WAIT FOR OPERATION TO COMPLETE 
3977 011570 023727 001346 001750 5%: CMP SEKCNT, #1000. +FINISHED SEEKS ? 
3978 011576 001026 BNE 6$ *BR IF NOT 
3979 011600 005037 001346 CLR SEKCNT +CLEAR THE SEEK COUNT 
3980 011604 063737 001514 001532 ADD IC, NC1 +ADD THE INCREMENT 
3981 011612 023737 001532 001512 CMP NC1,LC *EXCEEDED THE CYLINDER LIMIT ? 
3982 011620 103100 BHIS ExIT10 BR IF IT HAS 
3983 011622 013737 001512 001350 MoV LC. vELTA GET THE NEXT ‘ZONE’ ADDRESS 
3984 011630 163737 001532 001350 SUB NC1. DELTA +CHECK THE DIFFERENCE 
3985 011636 023737 001514 001350 CMP IC, DELTA DIFFERENCE GREATER THAN THE INCREMENT ? 
3986 011644 101003 BHI 6$ -BR IF IT IS 
3987 011646 013737 001514 001350 MOV IC, DELTA +USE THE ICREMENT PARAMETER 
3988 011654 005237 001346 6S: INC SeKCNT +COUNT THE NEXT SEEK 
3989 011660 023737 001510 001512 CMP FC,.LC +BEGINNING AND ENDING CYLINDERS THE SAME ? 
3990 011666 001002 BNE 7$ BR IF NOT 
3991 011670 000137 011126 JMP TEST10 BR IF TREY ARE 
3992 011674 013737 001532 OO04116 7%: MoV NC1, DPB. A+12 +RESET THE CYLINDER ADDRESS 
3993 011702 004737 023510 JSR PC, SRAND *CYCLE THE RANDOM NUMBER GENERATOR 
3994 011706 013746 023606 MOV SHINUM, - (SP) +USE THE HIGH RANDOM NUMBER 
3995 011712 005046 CLR ~ (SP) +CLEAR THE UPPER DIVIDEND 
3996 011714 013746 001350 MOV DELTA. -(SP) FORM THE DIVISOR 


3997 011720 005216 INC (SP) + INCREMENT 
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DZR JAB. P11 06-SEP-77 16: 20 T10 SERVO SETTLE DOWN TEST ; SEQ 0075 
3998 011722 004737 023612 JSR PC, $01V +O1VIDE 
3999 011726 062637 O04116 AOD +1 hee DPB. A+12 ;ADD THE REMAINDER ” THE INITIAL CYLINDER 
4000 011732 005726 TST (SP) +DISCARD THE QUOTENT 
4001 011734 023737 OO4116 004176 CMP DPB. A+12, DTADPB+12 | CYLINDER SELECTED AS LAST TIME ? 
4002 011742 001754 BEQ 7$ sBR IF IT 
4003 011744 013737 004116 004176 MOV DPB. A+12, DTADPB+12 :CoOPY NEW CYLINDER ADDRESS 
4004 011752 000137 011126 JMP TEST1O + CONT INUE 
4005 011756 005337 001344 TST10B8: DEC SEKTMR ‘ DECRENENT THE SEEK TIMER 
4006 011762 001016 BNE 1$ + CONTINUE IF NOT DONE 
4007 011764 012702 004104 MOV #OPB. A. RZ +DPB ADDRESS 
4008 011770 004737 042034 JSR PC, SVRH11 ; SAVE - REGISTERS 
4009 011774 104024 ERROR 24 + TIMEOUT DURING SEEK 
4010 011776 012764 000040 000010 MOV #BITOS.RPCSZ2(R4) |; INIT THE MASSBUS 
4011 012004 110164 000010 MOVB R1,RPCSZ2(R4) +RESELECT THE DRIVE 
4012 012010 016676 000002 000000 MOV 2(SP), d(SP) RESTORE THE CLOCK VECTOR ADDRESS 
4013 012016 000401 BR ExiT10 ;ABORT THE TEST 
4014 012020 000002 1$: RTI + RETURN 
se 4 012022 000004 EX1T10: SCOPE +LOOP ? 
4017 jj MAEXAAAAAAAAAAAA AAA AAA AAA AA AAA AAA ATA AAA AA AAA AAA AAA AA AAA AAT 
me +KTEST 11 ALL SEEKS TEST 
4020 ix THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
mea + TO ALL OTHER CYLINDERS. 
4023 ix BEGINNING WITH CYLINDER ‘FC’. THE TEST SEEKS TO EACH CYLINDER 
4024 re BETWEEN ‘FC' AND ‘LC’ FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
4025 eS ADDRESS |S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
4026 re ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 
ed re CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 
4 
4029 jj MARAAAARAAAAAAAAAAAAAAALA LALA AAA AA AAA AA AAA AAAS AAA AAA AA AAAS 
4030 012024 TST11: 
4031 012024 000240 NOP 
4032 012026 033737 O01446 001234 BIT @#B1TS+#<11%2>, TSTNMS ;DO THIS TEST? 
4033 012034 001002 BNE 64S ; YES--BRANCH 
4034 012036 000137 012244 JMP TST12 +NO--GO TO THE NEXT TEST 
4035 012042 012737 000011 001102 645%: MOV #11, déSTSTNM ;SET UP TEST NUMBER AND 
4036 *CLEAR THE ERROR FLAG (SERFLG) 
4037 012050 004737 024610 JSR PC, LODPRN LOAD THE PARMETERS FOR THE TEST 
4038 012054 012737 012164 001110 MOV @TESTI1,98SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
4039 012062 013777 001102 167052 MOV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4040 012070 013737 001506 001204 MoV OERPT. STINES +GET THE ITERATION COUNT 
4041 012076 112737 000031 001115 MovB #25. , SERMAX +MAX ERRORS ALLOWED FOR TEST 
4042 012104 012737 012112 001106 MoV #15. SLPADR +SETUP THE LOOP ADDRESS 
4O43 012112 113737 001524 004134 °:¢: MOVB FS. OPB. B+10 + SECTOR ADDRESS 
4O44 012120 113737 001524 004154 MOvB F 3, OPB. C+10 + SECTOR ADDRESS 
4O4S 012126 113737 001516 004135 MOVB FT. OPB. B+11 + TRACK ADDRESS 
4O4G 012134 113737 001516 004155 Move FT. OPB. C+11 + TRACK ADDRESS 
4047 012142 013737 001510 004136 MoV FC. OPB. B+12 + STARTING CYLINDER ADDRESS 
4048 012150 013737 001510 004156 MOV FC. OPB. C+12 STARTING CYLINDER ADDRESS 
4049 012156 012737 012242 001252 Mow @EXITI1,BYPASS ; TEST ABORT EXIT 
4050 Hip 012706 001100 + a MOV #STACK. SP +SETUP THE STACK POINTER 
4051 0121 1$: 
4052 012170 004037 025334 JSR RO. @#CALL. C +GO EXECUTE THE COMMAND 


4053 012174 004037 025144 JSR RO. d#CALL. B GO EXECUTE THE COMMAND 


MD-11-DZRJA-B RPOY/5/6 MECHANICAL AND as - aateia TEST 


DZR JAB. P11 06-SEP-77 16: 20 ALL 
4054 012200 063737 001514 004156 AOD 
4055 012206 023737 001512 004156 CMP 
4056 012214 236 BGE 
4057 012216 013737 001510 004156 MOV 
4058 012224 063737 001514 004136 ADD 
4059 012232 023737 001512 004136 CMP 
4060 012240 002353 BGE 
ot 012242 000004 EXITi1: SCOPE 
4 


L 6 
vg 3H 30(1046) 


SEEKS TEST 


1C, OPB. C#12 
LC, OPB. C+12 


i$ 

FC, OPB. C+12 
1C, OPB. B+12 
LC, OPB. B+12 


06-SEP-77 16:22 PAGE 80 
SEQ 0076 


; INCREMENT THE ENDING CYLINDER ADDRESS 
CHECK IF EXCEEDING MAXIMUM 

+BR IF NOT 

+RESET ENDING CYLINCEP ADDRESS 

+ INCREMENT THE STARTING ADDRESS 
EXCEEDING MAXIMUM ? 

+BR IF NOT 

+LOOP ? 
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4063 
4064 
4065 


37% 27% 27% 27% 27K 78 27K AE 
37:78 2:78 278 27K 278 278 SE 
37% 27% 278 27% 278 27K 7K AE 


06-SEP-77 


ALL SEEKS TEST 


.SBTTL ¥&% TIMING TESTS 44% 


A es es eed ees ee, es ee, oes ees oe 
24:78 278 278 78 7B 7 AEE AE: 
A as es ee, es ee, es ees oe, es oe 


;&THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 
;KTIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE "RPO 
+ KENGINEERING SPECIFICATIONS”. 
; THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK 
;KOPERATIOMS. AT THE COMPLETION OF EACH OF THE TIMING 
;KTESTS THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 


+ *TYPED. 


17: Bf: 
37: BCs) 
a7: &/: 


012376 


K/: &/: &/: K/: KA: «KC: 
K/: K/: B/: RS: R/: KC: 
K/: &/: KA: R/: KA: «KC: 


001450 


013002 
000012 


024610 


001234 


001102 


001110 


001115 


001106 


000034 
000001 


K/: BA: BA: RA: BA: RA: BA: RA: RC: KC: 
K/: K/: RA: KA: KA: KC: RC: KC: KA: ROK 
K/: RA: RA: RA: BA: RA: BA: BA: RA: RC: Ok 


3p MEXRAAAAAAAAAAAAAAAA AA AAA AAA AAA AAA AA AAA AA AAA AA AAA AAA AAA ALAA ES 
s4TEST 12 ROTATIONAL SPEED TIMING TEST 

eS THIS TEST WILL START A SEARCH TO CYLINDER 0. TRACK O. SECTOR 
eS 0. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN 
;* AND THE OPERATION IS TIMED. THIS PROCEDURE IS REPEATED 10 
:* TIMES THEN THE AVERAGE TIME 1S CALCULATED AND CHECKED TO 

;x ENSURE IT 1S WITHIN TOLERANCE: 

® 16.67 MS/REV + OR - 2% IF 60HZ 

:* 16.67 MS/REV + OR - 2.5% IF SOHZ 


TT + uate ateeaampuae scumaauumarrnmmmmannnnnianimmmtitt: 
12: 


NOP 

BIT OB 1TS+<12%2>, TSTNMS ;D00 THIS TEST? 

BNE 64S ; YES--BRANCH 

JMP TST13 NO--GO TO THE NEXT TEST 


64S: MoV #12, d#STSTNA SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LODPRN +LOAD THE PARMETERS FOR THE TEST 
MOV #TST12, @#SLPERR ;SETUP THE ERROR LOOP ADDRESS 
MoV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV @EtRPT. STIMES +GET THE ITERATION COUNT 
MOVB #25. . SERMAX +MAX ERRORS ALLOWED FOR TEST 


TST aéCLKSTA +KW11-P CLOCK? 
BGT 13 +YES--START TEST 
JMP TST13 +NO--GO TO NEXT TEST 
1S: MOV #15, SLPADR + SETUP LOOP ADDRESS 
JSR RO. d#SRCHOO +00 A MASSBUS INIT & RECAL 
BR 2$ RETURN HERE IF NO ERROR 
JMP EXIT12 +RETURN HERE IF ERROR 
2$: MOV QtFC,RPCACRY) FC 
MoV atFs, -(SP) 7FS 


MOVB aeFT, 1¢(SP) sFT 
MOV (SP)+,RPDACR4Y) LOAD FT/FS 


SEQ 0077 


MD-11-DZRJA-B RPO4Y/5/6 MECHANICAL AND on | ‘aide TEST 
6: 20 T12 ROTATIONAL SPEED TIMING TEST 


DZR JAB. P11 


012724 


012737 
005005 


012764 


06-SEP-77 1 


004164 


166624 
000131 
000131 


000101 
040000 


004164 
042034 
000040 
004164 


027120 


000101 
177776 


001206 


001220 


166720 
022034 


166704 
166670 
000012 


000010 
000010 


166610 


166600 
000012 


000010 
000010 


166516 


000010 
000010 


000010 


TEST12: 


1$: 


2$: 


38: 


7S: 
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rarest +sESCAPE TO EXIT12 ON ERROR 


#T7A,R3 3 @OHZ PARAMETERS 
#SHO6, d#C. SHR 

12 5 YES“-BRANCH 
#T7B.R3 +NO--50 HZ PARAMETERS 
@STACK. SP sSETUP STACK 


#10.,R1 +TIME 10 os 
PC, BUSTRTMR ; INITIALIZE THE TIMERS 
#7, aPKV +SETUP VECTOR IN aete OF OVERFLOW 
SDORTI,QRPVEC  ;SETUP RPOY/S/6 VECTOR 
aPKB + START COUNTING at ZERO 
#131, aPKCS ; INT. EN. COUNT UP AT 100KHZ 
#SEARCH, (R4) + START A SEARCH 
sWAIT ON INTERRUPT 


#101, dPKCS +STOP THE CLOCK 
#BITI4,RPOSI(R4) 7 ERROR? 
2$ ;NO--BRANCH 

; SAVE RO-RS 
#OTADPB. RZ +DPB POINT 


ER 
PC, d#SVRH11 +SAVE ALL THE RH11/RPO4 REGISTERS 
#B1TOS.RPCSZ2(R4) ;MASSBUS CLEAR 
@#OTADPB,.RPCS2(R4) >SELECT DRIVE 
RESTORE RO-RS 


17 
oPKB + START THE COUNT AT ZERO 
#SEARCH, (R4) + START A SEARCH 
#131, dPKCS + START THE CLOCK 
;WAIT ON INTERRUPT 
#101, aPKCS + STOP THE CLOCK 
#BITIG.RPOSICRY) 7 IS “ERR=1"7 
3$ + NO--BRANCH 
+ SAVE RO-RS 
#OTADPB. RZ +OPB POINTER 


PC, d#SVRH11 +SAVE ALL THE RH11/7RPO4 REGISTERS 
#BITOS.RPCS2(R4) ;MASSBUS CLEAR 
@SOTADPB.RPCSZ2(R4) >SELECT DRIVE 

RESTORE RO-RS 


17 +DISK ERROR OCCURRED 

PC, a#COUNT UPDATE THE COUNT 

Ri + DONE? 

1$ ; NO--BRANCH 

8$ + YES--GO TO THE EXIT 

#101, a@PKCS +STOP THE CLOCK 

aePs DROP THE PRIORITY 

(SP )+,RO0 PC OF WAIT+2 

(SP )+ ;POP THE PS FROM THE STACK 
+ SAVE RO-RS 

#OTADPB. R2 +OPB POINTER 


PC, O#SVRH11 SAVE ALL THE RH11/7RPO4 REGISTERS 
#B1TOS,.RPCSZ2(R4) ;MASSBUS CLEAR 
@SDTADPB.RPCSZ2(R4) >; SELECT DRIVE 

+RESTORE RO-RS 
20 7CLOCK OVERFLOWED 


#B1TOS.RPCS2(R4) ;MASSBUS INIT 


SEQ 0078 
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DZR JAB. P11 06-SEP-77 16: 20 T1i2 ROTATIONAL SPEED TIMING TEST SEQ 0079 
4175 012732 013764 004164 000010 MOV @tOTADPB. RPCSZ(R4) ; SELECT DRIVE 
4176 012740 004737 024074 JSR PC, o@ST. CLK + INITIALIZE THE CLOCK 
4177 012744 012777 037376 021544 MoV #1SR, sevec sRESTORE RH11/RPO4/5/6 INT. VECTOR 
4178 012752 032737 000100 001220 BIT #SHO6, a#C. SHR 160 H2? 
4179 012760 001004 BNE 9$ NO -- BRANCH 
4180 012762 004037 027252 JSR RO. OeTYPTIN ;GO TYPE THE TIMES 
4181 012766 002774 T7A +; POINTER 
4182 012770 000403 BR EX1T12 G0 TO EXIT 
4183 012772 9S: 
4184 012772 004037 027252 JSR RO. Oe TYPTIM +GO TYPE THE TIMES 
4185 012776 003004 178 + POINTER 
te 013000 000004 EX1T12: SCOPE +LOOP 7? 
4188 
4189 js RAEXAAAAAAAAAAAA AAA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AAA AAA AAA AAAS 
dhs +*TEST 13 ONE CYLINDER SEEK TIMING TEST 
4192 eS THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
4193 re CYLINDER BY ONE UNTIL THE INCREMENT 1S GREATER THAN THE 
4194 :x CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
4195 ;x TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
4196 :x EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
~obo4 eS THE TIME MUST BE LESS THAN 10MS. 
4199 js RAEXAAAAAAAAAAAAAA AAA AAA AAA AAA AA AAA AAA AA AAA AA AAA AA AAA AAA ATS 
4200 013002 TST13: 
4201 013002 000240 NOP 
4202 013004 033737 001452 001234 BIT 8B 1TS+#<13%2>, TSTNMS ;D00 THIS TEST? 
4203 013012 001002 BNE am ; YES--BRANCH 
4204 013014 000137 013446 JMP sti +NO--GO TO THE NEXT TEST 
4205 013020 012737 000013 001102 64%: MoV #13, a8STSTNN ;SET UP TEST NUMBER AND 
4206 +CLEAR THE ERROR FLAG (SERFLG) 
4207 013026 004737 024610 JSR PC. LODPRM +LOAD THE PARMETERS FOR THE TEST 
4208 013032 012737 013002 001110 MOV #TST13. SSSLPERR ; SETUP THE ERROR LOOP ADDRESS 
4209 013040 013777 001102 166074 MOV STSTNM, ADISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
4210 013046 013737 001506 001204 MOV OtRPT, STIMES +GET THE ITERATION COUNT 
4211 013054 112737 000031 001115 MOVB #25. , SERMAX ;MAX ERRORS ALLOWED FOR TEST 
4212 013062 005737 001244 TST a#CLKSTA +KW11-P CLOCK? 
4213 013066 003002 BGT 1$ + YES--START TEST 
4214 013070 000137 013446 JMP TST14 +NO--GO TO NEXT TEST 
4215 013074 012737 013074 001106 1%: MoV #15, SLPADR +SETUP THE LOOP ADDRESS 
4216 013102 004037 026670 JSR RO, d#SRCHOO +00 A MASSBUS INIT. AND RECAL 
4217 013106 000402 BR 23 +NO ERROR RETURN 
4218 013110 000137 013444 JMP EXIT13 ERROR RETURN--SCOPE LOOP CALL 
4219 013114% 012703 003014 2s: MOV #T10.R3 ;PARAMETER POINTER 
4220 013120 012737 013444 001206 MOV #EXIT13,SESCAPE >; ESCAPE TO EXIT13 ON ERROR 
4221 013126 012706 001100 TEST13: MOV #STACK. SP +SETUP STACK 
4222 013132 013737 001510 004176 MoV FC, a#DTADPB+12 ; START WITH BEGINNING CYLINDER 
4223 013140 005237 004176 INC DTADPB+12 + INCREMENT THE BEGINNING CYLINDER 
4224 013144 005005 CLR RS +SET THE UP/DOWN SWITCH TO UP 
4225 013146 004737 027054 JSR PC, @#STRTMR + INITIALIZE THE TIMERS 
4226 013152 012777 013340 166214 MoV #75. aPKV +SETUP INCASE OF OVERFLOW 
4227 013160 012777 027052 021330 MOV BOORTI.@RPVEC ;SET RPO4/5/6 VECTOR 
4228 013166 005077 166210 1$: CLR oPKB + START THE COUNTER AT ZERO 
4229 013172 013764 004176 000034 MoV DSOTADPB+12, RPCACRY) pee DESIRED CYLINDER 


4230 013200 012714 000105 MoV #SEEK, (R4) + START A SEEK 
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4231 013204 012777 OO0131 166166 MOV #131, 0PKCS fate MY THE CLOCK 
4232 013212 000001 WAIT WAIT ON INTERRUPT 
4233 013214 ©42777 000101 166156 BIC #101. aPKCS ;STOP THE CLOCK 
4234 013222 032764 O40000 000012 BIT #BIT14,RPOSI(R4) ;ANY DISK ERRORS? 
4235 013230 001415 BEQ 2s + NO--BRANCH 
4236 013232 104412 SAVREG ; SAVE Start 
4237 013234 012702 004164 MOV #OTADPB. RZ +OPB8 POINTER 
4238 013240 004737 042034 JSR PC, O#SVRH11 ‘SAVE ALL THE RH11/RPO4 REGISTERS 
4239 013244 012764 O00040 000010 MOV 5 (TOS, RPCSZCRY) ;MASSBUS CLEAR 
4240 013252 013764 004164 000010 MOV OHOTADPB.RPCSZ2(R4) >SELECT DRIVE 
4241 013260 104413 RESREG +RESTORE RO-RS 
4242 013262 104017 ERROR 17 +REPORT THE ERROR « 
4243 013264 004737 027120 28: JSR PC, @#COUNT +COUNT THIS SEEKS TIME 
4244 013270 004737 026446 JSR PC, d#TWONS +STALL FOR 2 MILLISECONDS 
4245 013274 005705 TST R5 ;UP OR DOWN? 
4246 013276 001011 BNE 4§ + DOWN--BRANCH 
4247 013300 005237 004176 33: INC Os OTADPB+12 ;MOVE TO NEXT CYLINDER 
4248 013304 023737 004176 001512 CMP O#OTADPB+12,LC ;OUT OF CYLINDERS? 
4249 013312 002725 BLT 1$ +NO--GO DO THE NEXT SEEK 
4250 013314 012705 177777 MOV #-1,R5 +SET UP/DOWN SWITCH TO DOWN 
4251 013320 000722 BR 1$ +GO 00 THE NEXT SEEK 
4252 013322 005337 004176 4$: DEC at OTADPB+12 +MOVE TO NEXT CYLINDER 
4253 013326 023727 004176 000000 CMP O#OTADPB+12,80 ;OUT OF CYLINDERS? 
4254 013334 003314 BGT 1$ +NO--GO DO THE NEXT SEEK 
4255 013336 000424 BR 8$ GO TO THE EXIT 
4256 013340 042777 O00101 166032 73%: BIC #101. dPKCS STOP THE CLOCK 
4257 013346 005037 177/776 CLR aePs DROP THE PRIORITY 
4258 013352 012600 MOV (SP)+,R0 +PC OF WAIT+2 
4259 013354 005726 TST (SP )+ ;POP THE PS FROM THE STACK 
4260 013356 104412 SAVREG + SAVE RO-RS 
4261 013360 012702 004164 MOV #OTADPB, RZ +OPB POINTER 
4262 013364 004737 042034 JSR PC, O#SVRH11 ;SAVE ALL THE RH11/7RPO4 REGISTERS 
4263 013370 012764 000040 000010 MOV #B1TOS.RPCSZ2(R4) ;MASSBUS CLEAR 
4264 013376 013764 004164 000010 MoV @tOTADPB.RPCS2(R4) ; SELECT DRIVE 
4265 013404 104413 RESREG +RESTORE RO-RS 
4266 013406 104020 ERROR 20 REPORT CLOCK OVERFLOW 
4267 013410 8s: 
4268 013410 012764 000040 000010 MOV #BITOS.RPCS2(R4) ;MASSBUS INIT. 
4269 013416 013764 004164 000010 MOV @tOTAOPB.RPCS2(R4) ; SELECT DRIVE 
4270 013424 004737 024074 JSR PC. d@ST. CLK + INITIALIZE THE CLOCK 
4271 013430 012777 037376 021060 MOV #1SR, ARPVEC ZRESTORE RH11/RPO4/5/6 INT. VECTOR 
4272 013436 004037 027252 JSR RO, O#TYPTIN +GO TYPE THE TIMES 
4273 013442 003014 T10 +POINTER 
4274 013444 000004 EXIT13: SCOPE +LOOP ? 
4 
4277 js RAEXSAAAAAAAAAAAAA AAA TATA TATA AAA TATA AA AAA AAA AAA AAA AAA AAA ATA 
4278 +4TEST 14 ACCESS TIME MEASURMENT TEST 
4279 
4280 om THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 
4281 re CYLINDER 'LC'. THEN A REVERSEK FROM CYLINDER ‘LC’ TO 
4282 i* CYLINDER 0. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
4283 i* ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT. 
4284 ix THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL 
4285 :* OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS. 
:* 


CYLINDER ‘LC’ DEFAULTS TO 136 (10) FOR AN RPO4/S OR TO 255 (10) 


SEQ 0080 


D 7? 
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DZR JAB. 


013446 


013464 
013472 


014002 


000240 
033737 
001002 
000137 
012737 


004737 


001454 


014164 
000014 


024610 
013446 
001102 
001506 
000031 
001244 


014164 
013540 
026670 


014162 
003024 


001234 


001102 


001110 
165430 
001204 
001115 


001106 


001206 


165560 
020674 


000034 
000000 
165530 


165520 
000012 


000010 
000010 


165416 


165406 
000012 


;x 


ACCESS TIME MEASURMENT TEST 


FOR AN RPOS. 
j HUNUAAAAAAESESSSSSSSSSNNEEEESSSESESSSSSSSSAREREEAESIEESSSSESES 
"NOP 
BIT a€81TS+<14%2>, TSTNMS ;00 THIS TEST? 
BNE 64S ; YES--BRANCH 
JMP TST15 ;NO--GO TO THE NEXT TEST 


64S: 


1$: 


25: 


TEST14: 


1$: 


23: 


MOV #14, OeSTSTNM ;SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LOOPRM ;LOAD THE PARMETERS FOR THE TEST 
MOV #TST14, O#SLPERR ; SETUP THE ERROR LOOP ADDRESS 
MOV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV OERPT, STINES +GET THE ITERATION COUNT 
MOVB #25. , SERMAX +MAX ERRORS ALLOWED FOR TEST 


TST a*#CLKSTA +KW11-P CLOCK? 

BGT 1$ + YES--START TEST 

JMP TST15 +NO--GO TO NEXT TEST 

MOV #15, SLPAOR +SET THE LOOP ADDRESS 

JSR RO. d#SRCHOO +00 A MASSBUS INIT & RECAL 
BR 2$ RETURN HERE IF NO ERROR 
JMP EXIT14 RETURN HERE ON ERROR 


+PARAMETER POINTER 

MoV WEXITI4,SESCAPE ;;ESCAPE TO EXITI4 ON ERROR 

MOV #STACK. SP SETUP STACK 

M ;REPEAT “O-136-0" 128 TIMES 

JSR PC, AeSTRTMR + INIT. THE COUNTERS 

MoV #75, OPKV +SET UP VECTOR IN CASE OF OVERFLOW 
MOV #DORTI,ARPVEC ;SETUP RPO4/5/6 VECTOR 


CLR oPKB START COUNT AT ZERO 
MOV LC, RPCACRY) +"MIDDLE’ CYLINDER 
MOV @SEEK.RPCS1(R4) ; START A SEEK 

MoV #131, aPKCS + START THE CLOCK 
WAIT +WAIT ON INTERRUPT 
BIC #101, aPKCS +STOP CLOCK 

BIT RBITIG,RPDSICRY) - ERR=1? 

BEQ 2$ + NO--BRANCH 

SAVREG ; SAVE RO-R5S 

MoV #OTADPB, RZ +OPB POINTER 


JSR PC, d#SVRH11 +SAVE ALL THE RH11/7RPO4 REGISTERS 
MoV #B1TOS.RPCSZ2(R4) ;MASSBUS CLEAR 
MOV @#DTADPB.RPCS2(R4) >SELECT DRIVE 


RESREG RESTORE RO-RS 

ERROR 17 

CLR RS +SET UP/DOWN SWITCH TO UP 
JSR PC, @#COUNT +UPOATE THE COUNT 

JSR Pc. de TWONS *+STALL FOR 2 MILLISECONDS 
CLR oPKB START THE COUNT AT ZERO 


MoV FC, RPCACRY) BEGINNING CYLINDER 
MoV #SEEK,RPCS1(R4) > START A SEEK 


MoV #131. aPKCS START THE CLOCK 
WAIT ;WAIT ON INTERRUPT 
BIC #101. aPKCS +STOP THE CLOCK 
BIT #BITIY,RPOSI(RY) 7 ERR=1? 

BEQ 3$ + NO--BRANCH 
SAVREG + SAVE RO-RS 


SEQ 0081 


MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND — TEST 
16: 20 ACC 


—E 7? 
MACY11 30(1046) 
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TIME MEASURMENT TEST 


#OTAOPB, RZ 
PC, O#SVRH11 


;OPB POINTER 
+SAVE ALL pete REGISTERS 


#B1TOS.RPCSZ2(R4) ;MASSBUS CLE 
@#OTADPB.RPCSZ2(R4) +; SELECT ORIVE 


17 

#-1, RS 

PC, d#COUNT 
+ Gece 


1$ 

8$ 

#101, aPKCS 
aePs 
(SP)+,RO 
(SP )+ 


#OTADPB, RZ 
PC, d#SVRH11 


+RESTORE RO-RS 


SET UP/DOWN SWITCH TO DOWN 
;UPDATE THE COUNT 
+STALL FOR 2 MILLISECONDS 


+ DONE? 

;NO--BRANCH 

+ YES--EXIT 

STOP THE CLOCK 

+DROP THE PRIORITY 

PC OF WAIT+2 

POP THE PS FROM THE STACK 

+ SAVE RO-RS 

DPB POINTER 

;SAVE ALL THE RH11/7RPO4 REGISTERS 


#BITOS,.RPCSZ2(R4) ;MASSBUS CLEAR 
@#OTADPB.RPCSZ2(R4Y) ; SELECT DRIVE 


20 


+RESTORE RO-RS 
CLOCK OVERFLOWED 


#BITOS.RPCSZ2(R4) ;MASSBUS INIT. 
@#DTADPB,RPCS2(R4) ; SELECT DRIVE 


PC. d#ST. CLK 
# ISR, ARPVEC 
RO. de TYPTIN 


+ INITIALIZE THE CLOCK 

RESTORE RH11/7RPO4/5/6 INT. VECTOR 
+GO TYPE THE TIMES 

+ POINTER 

+LOOP ? 


jj REXAAAAAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AA AAA AA AAA ALAA AAA AAAS 
MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO 


CYLINDER ‘LC’, 


CYLINDER 0. BOTH SEEKS 
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 


THIS SEQUENCE IS 


A TOTAL OF 256 SEEKS). 
"LC' DEFAULTS TO 410 (10) FOR RPO4/S'S AND TO 814 (10) 
FOR RPO6'S. 


jj RERAAAAAAAAAAARAAAA AAA AA AAR AAA AAA ALAA AAA AAA AAA AAA AAA AAA AAAS 


DZR JAB. Pil 06-SEP-77 Ess 
4343 014004 012702 004164 MOV 
4344 014010 004737 042034 JSR 
4345 014014 012764 O00040 000010 MoV 
4346 014022 013764 004164 000010 Mov 
4347 O14030 104413 RESREG 
4348 014032 104017 ERROR 
4349 014034 012705 177777 34: Mov 
4350 014040 004737 027120 JSR 
4351 0149044 004737 O26446 JSR 
4352 014050 005301 DEC 
4353 014052 003263 BGT 
4354 014054 000424 BR 
4355 014056 042777 000101 165314 7%: BIC 
4356 014064 005037 177776 CLR 
4357 014070 012600 MoV 
4358 014072 005726 TST 
4359 014074 104412 SAVREG 
4360 014076 012702 004164 MoV 
4361 014102 004737 042034 JSR 
4362 014106 012764 O00040 000010 MOV 
4363 014114 013764 004164 000010 MoV 
4364 014122 104413 RESREG 
4365 014124 104020 ERROR 
4366 014126 8S: 

4367 014126 012764 O00040 000010 MoV 
4368 014134 013764 004164 000010 MOV 
4369 014142 004737 O24U74 JSR 
4370 014146 012777 037376 020342 MoV 
4371 014154 004037 027252 JSR 
4372 014160 003024 Ti1 
4373 014162 000004 EXIT14: SCOPE 
4374 

4375 

4376 ;XTEST 15 
4377 

4378 ;x 

4379 ;x 

4380 7x 

4381 ;k 

4382 ;* TIME. 
4383 ;k 

4384 ;k 54 MS. 
4385 ;x 

4386 

4387 

4388 014164 TST15 

4389 014164 000240 NOP 
4390 014166 033737 001456 001234 BIT 
4391 014174 001002 BNE 
4392 014176 000137 014702 JMP 
aes 014202 012737 000015 001102 64%: MoV 
4394 

4395 014210 004737 024610 JSR 
4396 014214 012737 014164 001110 MoV 
4397 014222 013777 001102 164712 MOV 
4398 014230 013737 001506 001204 MoV 


THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 


ARE TIMED AND CHECKED TO ENSURE 


REPEATED 128 TIMES (FOR 
THE MAXIMUM SEEK TIME MUST BE LESS THAN 


6+ eheatnmniiger ty He +D0 THIS TEST? 


TST16 
#15, d@STSTNM 


PC, LOOPRM 
#TST15, DESLPERR 
STSTNM. dDISPLAY 
QeRPT, STIMES 


+ YES--BRANCH 

+NO--GO TO THE NEXT TEST 
SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
+LOAD THE PARMETERS FOR THE TEST 
+ SETUP THE ERROR LOOP ADDRESS 

;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
+GET THE ITERATION COUNT 


SEQ 0082 


MD-11-OZR JA-B At oh a a fate AND = ente 
DZ2R JAB. P11 16: 20 T18 IMU 


014236 


014574 
014602 


06-SEP-7 


112737 
005737 


005037 


000031 
001244 


014702 
014256 
026670 


014700 


000101 
040000 


004164 
042034 
000U40 
004164 


027120 
026446 
164724 
001510 
000105 
000131 


000101 
040000 


004164 
042034 
000040 
004164 


177777 
027120 
026446 


000101 
177776 


001115 


001106 1%: 


23: 
001206 


TEST15: 


165042 
020156 

1$: 
000034 
000000 
165012 


165002 
000012 


000010 


000010 


23: 


000034 
000000 
164700 


164670 
000012 


000010 
000010 


38: 


164576 7%: 


ee 
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M SEEK TIMING TEST 


#25. , SERNAX MAX ERRORS oe FOR TEST 


atCLKSTA +KW11-P_ CLOCK 

1$ + YES--START TEST 

TST16 +NO--GO TO NEXT TEST 

#1%, SLPADR + SETUP THE LOOP ADDRESS 

RO, d#SRCHOO +00 A _MASSBUS INIT & RECAL 
2$ RETURN HERE IF NO ERROR 

ExiT15 +RETURN HERE ON ERROR 

#T12,R3 PARAMETER POINTER 

#EXIT15, SESCAPE ;;ESCAPE TO EXITIS ON ERROR 
STACK. SP SETUP STACK 

#128..R1 REPEAT “O-'LC‘'-O" 128 TIMES 

PC. aESTRTHR + INIT. THE TIMERS 

#75, OPKV +SETUP VECTOR IN CASE OF OVERFLOW 


#DORTI,ORPVEC ;SETUP RPO4/5/6 VECTOR 
oPKB + START COUNTING FROM ZERO 
LC, RPCACRY) MAXIMUM CYLINDER 

#SEEK, RPCSI1(R4Y) 7 START A SEEK 


#131, aPKCS +START THE CLOCK 
;WAIT ON INTERRUPT 
#101, dPKCS +STOP THE CLOCK 
#BITI4,RPDSIC(RY) 7 ERR=1? 
2$ + NO--BRANCH 
+ SAVE RO-RS 
#OTADPB. RZ DPB POINTER 
PC, d#SVRH11 ;SAVE ALL THE RH11/7RPO4 REGISTERS 


#B1TOS,RPCS2(R4) ;MASSBUS CLEAR 
OD TADPB,.RPCSZ2(R4) >SELECT DRIVE 
RESTORE RO-RS 


17 
RS +SET THE UP/DOWN SWITCH TO UP 
PC, d#COUNT +UP THE COUNT 
PC, de TWOMS +STALL FOR 2 MILLISECONDS 
aPKB START COUNT AT ZERO 
FC, RPCACRY) +BEGINNING CYLINDER 
#SEEK,RPCSI(R4Y) > START A SEEK 
#131. aPKCS + START THE CLOCK 

+WAIT ON INTERRUPT 
#101, aPKCS +STOP THE CLOCK 
SBITI4,RPOSICRY) ; “ERR“=17? 
$ + NO--BRANCH 

+; SAVE RO-R5 
#OTADPB. R2 +DPB POINTER 
PC, d@SVRH11 +SAVE ALL THE RH11/RPO4 REGISTERS 
#B1TOS,RPCSZ2(R4) ;MASSBUS CLEAR 


@#DTADPB.RPCSZ(R4Y) ; SELECT DRIVE 
+RESTORE RO-RS 


17 REPORT THE ERROR 

#-1,R5 +SET THE UP/DOWN SWITCH TO DOWN 
PC, @#COUNT UPDATE THE COUNT 

PC, @#TWONS +STALL FOR 2 MILLISECONDS 

Ri + DONE? 

1$ + NO--BRANCH 

8$ + YES-~EXIT 

#101, dPKCS STOP THE CLOCK 

aePS DROP THE PRIORITY 


SEQ 0083 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND — ie 
16: 20 T1i5 MAX | 


DZ2R JAB. P11 06-SEP-77 
4455 Gi4606 912600 MOV 
4456 014610 005726 TST 
4457 014612 104412 SAVREG 
4458 014614 012702 004164 MOV 
4459 014620 004737 042034 JSR 
4460 014624 012764 O00040 000019 MOV 
4461 014632 013764 004164 000010 MOV 
4462 014640 104413 RESREG 
4463 014642 104020 ERROR 
4464 014644 85: 
4465 014644 012764 O00040 9000010 MOV 
4466 014652 013764 004164 000010 MOV 
4467 014660 004737 024074 JSR 
4468 014664 012777 037376 017624 MoV 
4469 014672 004037 027252 JSR 
4470 014676 003034 T12 
4471 014700 000004 EX1T15: SCOPE 


. Ff 
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(SP)+,RO ;PC OF WAIT+2 
(SP)+ ;POP THE PS FROM THE STACK 
; SAVE RO-RS 


#OTROPE, RZ +OPB POINTER 
PC, @#SVRH11 ;SAVE ALL THE RH11/7RPO4 REGISTERS 
#B1TOS,RPCSZ2(R4) ;MASSBUS CLEAR 
OFOTADPB, RPCSZ(R4) ; SELECT DRIVE 
sRESTORE RO-RS 
20 s+CLOCK OVERFLOWED 


#BITOS.RPCSZ2(R4) ;MASSBUS INIT. 
@#DTADPB.RPCS2(R4) ; SELECT DRIVE 
PC, a#ST. CLK 7 INITIALIZE THE CLOCK 
#1SR, ARPVEC RESTORE RH11/RPO4/5.’6 INT. VECTOR 
RO, d#TYPTIN +GO TYPE THE TIMES 
;POINTER 
;LOOP ? 


SEQ 0084 


MD-11-DZRJA-B RPO4/5/6 5 ees AND — TEST 


DZR JAB. 06-SEP-77 


Pil 


MAXIMUM SEEK TI 


H 7 
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.SBTTL kX ADDRESSING TESTS 4x% 


7, a, as as as aes as aes aes aes aes ae, aes aes ae, Ses Sees aes oe 


77% 27%: 7% 27% 27K 7 7k 


:7K 27K 278 278 578 278 78 7B REE: 


7, an, as as as as aes es aes oes aes aes aes aes Sees aes Ses aes oe 


+ THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK 
BOTH ADDRESSING TESTS 


+*AND SECTOR ADDRESS CIRCUITRY. 


+ KWILL BE PERFORMED ON 


,7: B/: B/: B/: BA: BP: 
i7: &7: B/: B/: B/: BP: 
+7: &/: BA: B/: B/: K7: 


014702 
014702 
014704 
014712 
014714 
014720 


014726 
014732 
014740 


000240 
033737 
001002 
000137 
012737 


004737 


012737 


001460 


015300 
000016 


024610 


000 
025524 
000151 


CYLINDER FC. 


K/: &/: KA: KA: RA: RA: BC: RC: RC: RC: OF 
R/: &/: B/: KA: BA: KA: KA: RA: «BS: RA: OK 
R/: &/: BA: B/: BC: BA: BC: «+B: “+B: B/: * 


001234 


001102 


001110 
164174 
001204 
001115 
001252 
001106 


004176 
004175 
004170 
004172 
001110 
004166 


004166 


ee ee ee ee ee re 


Pt PE PE DE DE DE DE FE “=: 


Be BV 


64S: 


TEST16: 


ea eee eee ee 
1 


SECTOR ADDRESSING TEST 


THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK “FT”. THE 

DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 

BEING WRITTEN. A WRITE CHECK IS PERFORMED. THE BUFFER IS 

CLEARED (TO 177400) AND THE DATA 1S READ AND COMPARED. THEN SECTOR O 
1S REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED. THEN 

SECTOR 1 IS REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED. 

THIS REWRITE AND WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH 
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 


js MXXKAAAAAAAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA AAA AAAS AAA AAA AES 
TST16: 


#8 1TS+<16%2>, bite Be ;00 THIS TEST? 
64S YES--BRANCH 
TST17 ;NO--GO TO THE NEXT TEST 
#16, d#STSTNM ;SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
PC, LODPRM +LOAD THE PARMETERS FOR THE TEST 
STEST16, d8SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
@tRPT,. STIMES +GET THE ITERATION COUNT 
ERR. CT.SERMAX  ;MAX ERRORS ALLOWED FOR TEST 
#EXIT16, 9#BYPASS 
#TEST16.$LPADR ;SETUP THE LOOP ADDRESS 
STACK. SP +SET THE STACK POINTER 
PC. otf ILBUF ;FILL THE BUFFER WITH SECTOR ADDRESSES 
aéFC, A#DTADPB+12 ;- CYLINDER 
@tFT, A#OTADPB+11 - TRACK 
atOTADPB+10 + SECTOR 
TRCKWC, @#@OTADPB+4 ; WORD COUNT 
#BUFFER, @#0TADPB+6 > BUFFER ADDRESS 
#., SLPERR +SETUP THE ERROR LOOP ADDRESS 
STACK. SP +LOAD THE STACK POINTER 
SWRITE, A#OTADPB+2 ; COMMAND=WRITE DATA 
RO. @#ORVCAL + START A DATA TRANSFER 
SWRCKD, ASDOTADPB+2 ; COMMAND=WRITE CHECK DATA 


SEQ 0085 


1 7 
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DZR JAB. Pil 06-SEP-77 16: 20 T16 SECTOR ADDRESSING TEST SEQ 0086 
4528 015074 012737 015074 001110 MOV #., SLPERR + SETUP THE ERROR LOOP ADDRESS 
4529 015102 012706 001100 MOV STACK. SP ;LOAD THE STACK POINTER 
4530 015106 004037 025524 JSR a” ees + START A DATA TRANSFER 
4531 015112 012737 015112 001110 MOV - SLPERR + SETUP THE ERROR LOCP ADDRESS 
4532 015120 012706 001100 MOV aSTACK.SP +LOAD THE STACK POINTER 
4533 015124 004037 027742 JSR RO. O#CLRBUF CLEAR BUFFER 
4534 015130 012737 000171 004166 MOV #READ, #OTADPB+2 ; COMMAND = READ 
4535 015136 O04037 025524 JSR RO. 9#ORVCAL + START A DATA TRANSFER 
4536 015142 004037 030010 JSR RO, 9eCKSCTR ; CHECK THE SECTOR DATA READ 
4537 015146 012700 047712 Mov #BUFFER.RO +BUFFER ADDRESS 
4538 015152 005001 CLR Ri sFIRST SECTOR 
4539 015154 012737 015154 001110 MOV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
4540 015162 012706 001100 MOV #STACK. SP +LOAD THE STACK POINTER 
4541 015166 012737 000161 O04166 1%: MoV #URITE, SEOTADPB+2 ; COMMAND=WRITE DATA 
4542 015174 012737 177400 004170 MoV #SCTRWC, @#DTADPB+4 =; WORD COUNT 
4543 015202 010037 004172 MOV RO. d#D0TROPB+6  <;BUFFER ADDRESS 
4544 015206 110137 004174 MOVB R1,a#D0TADPB+10 ; SECTOR 
4545 015212 004037 025524 JSR RO. @#ORVCAL +START A DATA TRANSFER 
4546 015216 012737 015216 001110 MOV #. - SLPERR +SETUP THE ERROR LOOP ADDRESS 
4547 015224 012706 001100 MOV #STACK, SP +LOAD THE STACK POINTER 
4548 015230 012737 000151 004166 MOV #WRCKD. A#OTADPB+2 + COMMAND=WRITE CHECK DATA 
4549 015236 013737 001352 004170 MOV TRCKWC, @#DTADPB+4 ; WORD COUNT 
4550 015244 012737 047712 004172 MOV #BUFFER, d#DTADPB+6 A = Ay ADORESS 
4551 015252 105037 004174 CLRB a#O0TADPB+10 ; SECTO 
4552 015256 004037 025524 JSR RO, d#ORVCAL START A DATA TRANSFER 
4553 015262 062700 001000 ADD #512.,R0 +MOVE TO NEXT SECTOR 
4554 015266 005201 INC Ri 
4555 015270 023701 001630 CMP PRMLMT+#22, R1 + DONE? 

4556 015274 103334 BHIS 1$ ;NO--BRANCH 

to of 015276 000004 EXIT16. SCOPE +LOOP ? 

4 

4559 jp RAEMKAARAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 
to | +TEST 17 TRACK ADDRESSING TEST 

4561 

4562 eS THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
4563 ;* IN CYLINDER “FC” SECTOR “FS" OF EVERY TRACK WITH EACH TRACK 
4564 mS GETTING ITS OWN TRACK ADDRESS. 

4565 eS A WRITE CHECK 1S THEN PERFORMED ON EACH TRACK TO ENSURE 
4566 7% THE DATA 1S VALID. THEN TRACK O IS REWRITTEN AND TRACK 1 
4567 ;* THROUGH TRACK 18 IS WRITE CHECKED. THEN TRACK 1 IS 

4568 re REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED. 
4569 re THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17 
4570 re AND WRITE CHECKING TRACK 18. 

4571 

4572 jj MERAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA ALAA AAA AAA AAA EAS 
4573 015300 TST17?: 

4574 015300 000240 NOP 

4575 015302 033737 001462 001234 BIT O#B 1 TS+<17%2>, sees +00 THIS TEST? 

4576 015310 001002 BNE 64S YES--BRANCH 

4577 015312 000137 015720 JMP TST20 ;NO--GO TO THE NEXT TEST 

4578 015316 012737 000017 001102 64%: MoV #17, d8STSTNM ; SET UP TEST NUMBER AND 

4579 *CLEAR THE ERROR FLAG (SERFLG) 
4580 015324 004737 024610 JSR PC, LODPRM +LOAD THE PARMETERS FOR THE TEST 
4581 015330 012737 015374 001110 MoV RTESTI7, 0@SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
4582 015336 013777 001102 163576 MOV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 


4583 015344 013737 001506 001204 MOV OéRPT. STIMES +GET THE ITERATION COUNT 


MO-11-DZR JA-B hap 4 oo B MECHANICAL AND = TEST 
DZR JAB. P11 06-SEP-77 16: 20 Ti? 


015352 


015716 


113737 


001364 
015716 


047712 
015444 
001100 
004175 
025524 
001000 
000023 
047712 
015514 
001100 
000151 
004175 
026524 
001u00 


000023 


004175 
047712 


001000 
015614 


000022 


001115 
001252 
001106 


004166 
004176 
004174 
004170 
004172 


001110 
004172 


004172 
001110 
004166 


004172 


004172 


004172 
001110 
004166 
004172 
001110 
004166 
004175 


J? 
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TRACK ADDRESSING TEST 


M 
TEST17: MOV 


1$: MOVB 


2S: MOVB 


38: MOVB 


4$: DEC 


5S: MOV 
6$: ADD 


B 
EX1IT17: SCOPE 


ERR. CT.SERMAX ;MAX ERRORS ALLOWED FOR TEST 
#EXIT17. @eBYPASS 
@TEST17,SLPAOR ; SETUP THE LOOP ADDRESS 
@STACK. SP +SET THE STACK POINTEP 
PC. oF ILBUF sFILL THE BUFFER WITH TRACK ADDRESS 
WRITE, #OTADPB+2 ; COMMAND=WRITE DATA 
OtFC, OTADPB+12 ; CYLINDER 
OtFS, S#OTADPB+10 + SECTOR 
#SCTRUC, ABOTADPB+4 ; WORD COUN 
Srerrenrnewener ere, A ADDRESS 


0 TRAC 
#.. SLPERR + SETUP THE ERROR LOOP ADDRESS 
#STACK. SP LOAD THE STACK POINTER 
RO. @#OTADPB+11 ; TRACK ADDRESS 
RO, a#ORVCAL START A DATA TRANSFER 
#256. %2. DEOTADPBS6 UPDATE BUFFER ADDRESS 

RO ; UPDATE TRACK NUMBER 
#19..R0 OUT OF TRACKS? 

1$ + NO--BRANCH 
ABUFFER, a#DTADPESG BUFFER ADDRESS 
#. - SLPERR + SETUP THE ERROR LOOP ADDRESS 
#STACK, SP +LOAD THE STACK POINTER 


#WRCKD, A#OTADPB+2 ; COMMAND=WRITE CHECK 

RO, A#OTADPB+11 + TRACK ADDRESS 

RO. a#ORVCAL ;START A DATA TRANSFER 
#256. 2. - @#OTADPB+6 ; UPDATE BUFFER ADDRESS 
RO UPDATE TRACK NUMBER 
#19.,RO ;OUT OF TRACKS? 

23 +NO--BRANCH 

RO FIRST TRACK ADDRESS 
KO, d#OTADPB+11 ; TRACK 

RO, R1 +FORM BUFFER ADDRESS 
#BUFFER. aEDTADPB+6 ;BUFFER ADDRESS 


Ri 

5$ 

+ ‘aalieeataiaanitenitaine 

#. . SLPERR +SETUP THE ERROR LOOP ADDRESS 
#STACK, SP ;LOAD THE STACK POINTER 


#WRITE. S#OTADPB+2 ; COMMAND=WRITE DATA 

RO. @#ORVCAL + START A DATA TRANSFER 

#256. %2., d#O0TADPB+6 ; UPDATE BUFFER ADDRESS 
atOTADPB+11 ;MOVE TO NEXT TRACK 

#. , SLPERR +SETUP THE ERROR LOOP ADDRESS 
#STACK. SP +LOAD THE STACK POINTER 
#HWRCKD, @SOTADPB+2 + COMMAND=WRITE CHECK DATA 
RO. d#DRVCAL + START A DATA TRANSFER 

Se - @8OTADPB+11 ;OUT OF TRACKS? 


; NO--BRANCH 
RO +NEXT TRACK TO WRITE 
#18.,R0 ;OUT OF TRACKS? 
3$ ; NO--BRANCH 


SEQ 0087 


K 7? 
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DZR JAB. P11 06-SEP-77 16: 20 % DATA TEST SEQ 0088 
Mee .SBTTL &&% DATA TEST £42 
4640 +s RERAAAAAAAAALAAA AAA AAAA AAA A AAA AAA AAA AAA AAA TAA AAA AAT 
Me | +*TEST 20 DATA TEST 
4643 ;x THIS hi PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
4644 +x "FC" THROUGH "LC" BY THE INCREMENT “IC USING THE DATA PATTERNS 
YO4S +x SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 
4646 ;x A SET “NT” TO “FT” THEN REPEAT 2-4 UNTIL “NT” 
4647 ;x 2. WRITE THEN WRITE CHECK "FS" THROUGH "LS" OF TRACK “NT” 
4648 x 3. READ THEN SOFTWARE COMPARE "FS" THROUGH "LS" OF TRACK “NT” 
4649 ;x 4, INCREMENT "NT" BY “IT” 
4650 ;x 5. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
er $1 4: 6. REPEAT STEPS 1-5 FOR "FC" THROUGH "LC" ADVANCING BY “IC” 
4653 ;x IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
4654 ix THE TRACK IN ERROR 1S REWRITTEN AND CHECKED. THIS CHECK IS 
4655 ;x ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
4656 +x WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
4657 +x FATAL AND NO READ OCCURS. 
4658 ;x FS DEFAULTS TO 1 AND LS DEFAULTS TO O 
4659 x PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS) 
aor - THE POSSIBLE PATTERNS ARE: 
u ; 
act : PAT O- PAT 1 PAT 2 PAT 3 PAT Y PAT 5 PAT 6 PAT 7 
u ;KR ereece eesees seoceee seeese seesee essere) seeess ) seeeee 
4664 7x 165555 000001 177776 O00000 O00000 052525 007417 026455 
4665 +x 133333 000003 177774 OO0000 010421 052525 007417 026455 
4666 ;x 165555 000007 177770 000000 021042 052525 007417 026455 
4667 x 133333 000017 177760 177777 031463 125252 170360 151322 
4668 +x 165555 000037 177740 177777 O42104% 125252 170360 151322 
4669 x 133333 000077 177700 177777 O52525 125252 170360 151322 
4670 x 165555 000177 177600 OO00000 063146 052525 007417 026455 
4671 7x 133333 000377 177400 oOO00000 073567 052525 007417 026455 
4672 ;x 165555 000777 177000 177777 104210 125252 170360 151322 
4673 7x 133333 001777 176000 177777 114631 125252 170360 151322 
4674 7x 165555 003777 174000 000000 125252 052525 007417 026455 
4675 ;x 133333 007777 170000 177777 135673 125252 170360 151322 
4676 ;x 165555 017777 160000 OO0000 146314 052525 007417 026455 
4677 x 133333 037777 140000 177777 156735 125252 170360 151322 
4678 Pe 165555 077777 100000 OO00000 167356 052525 007417 026455 
4679 x 133333 177777 OO0000 177777 177777 125252 170360 151322 
4680 iz 
4681 x PAT 8 PAT 9 PAT 10 PAT 11 PAT 12 PAT 13 PAT 14% PAT 15 
4682 [= - os -wesd=s ecrsses sersee sHesee FeRerR SeNeZe <SeTesE SESeSS 
4683 7x 165555 000001 177776 172666 077777 153333 OC0000 177777 
4684 7x 133333 000002 177775 155555 137777 066667 177777 000000 
4685 18 165555 000004 177773 172666 157777 153333 177777 000000 
4686 7x 133333 000010 177767 155555 167777 066667 177777 000000 
4687 7x 165555 000020 177757 172666 173777 153333 177777 000000 
4688 7x 133333 OO00040 177737 155555 175777 066667 177777 ~900000 
4689 7x 165555 000100 177677 172666 176777 153333 177777 000000 
4690 ;x 133333 000200 177577 155555 177377 066667 177777 9000000 
4691 7x 165555 000400 177377 172666 177577 153333 177777 900000 
4692 7x 133333 001000 176777 155555 177677 066667 177777 ~\OQ00000 
4693 7x 165555 002000 175777 172666 177737 153333 177777 900000 
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015720 
015720 
015722 
015730 
015732 
015736 


015744 
015750 


06-SEP-77 


000240 
033737 
001002 
000137 
012737 


001424 


016440 
000020 


024610 
016122 


016000 


001526 
001524 


001630 


000400 


001630 
001524 
000400 


001524 


047712 


000040 
027630 


001236 


001102 


001110 
163156 
001204 
001115 
001106 


004174 
004172 
001252 


SEQ 0089 


133333 004000 173777 155555 177757 066667 177777 

165555 010000 167777 172666 177767 153333 177777 000000 
177773 066667 177777 000000 
165555 040000 137777 172666 177775 153333 177777 000000 
133333 100000 077777 155555 177776 066667 177777 000000 


Pt DE DE DE 3G 3G 
el 
Ww 
Ww 
fon 
W 
Ww 
o 
& 
oO 
Oo 
oO 
oO 
= 
wo 
~N 
N 
N“N 
~N 
a 
wn 
w 
wm 
wn 
wm 


Se 


7 a au tat tances lestnatnnaccnaas iteh lat ttt 


BIT BITS+#<20%2-40>, TSTNNS+2 ;DO THIS TEST ? 
BNE 64S + YES--BRANCH 
JMP TST21 +NO--GO TO THE NEXT TEST 
64S: MOV #20, d#¢STSTNN +SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
JSR PC. LODPRM ;LOAD THE PARMETERS FOR THE TEST 
MOV #TEST20. O#SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV STSTNM. @DISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MoV OERPT, STINES +GET THE ITERATION COUNT 
MOVB ERR. CT,SERMAX ;MAX ERRORS ALLOWED FOR TEST 


MOV #. . SLPADR +SETUP THE LOOP ADDRESS 
CLR RO ;CLEAR SWITCH 
CLR RY FORM WORD COUNT IN RY 


BGE 1 ;BRANCH IF FS ¢ OR = LS 
ADD PRMLMNT+22, R1 ADD MAXIMUM SECTOR ADDRESS TO 
INC Ri ;MAKE THE DIFFERENCE POSITIVE 
COM RO +SET SWITCH 
1$: ADD #256. ,R4 
DEC Ri 
BGE 1$ 
NEG R4 
MoV R4,RS +COPY NORMAL WORD COUNT INTO SMALL WC 
TST RO +SWITCH SET? 
BEQ 3$ +NO--BRANCH 
CLR RS FORM WORD COUNT FOR LS <¢ FS 
MoV PRMLMNT+22, R1 
SUB O#FS,R1 
2s: ADD #256. .R5 
DEC R1 
BGE 2$ 
NEG R5 
3S: MOVB OtFS, A#DOTADPB+10 + SECTOR 


MOV #BUFFER, a#0TADPB+6 > DATA BUFFER 
MoV #EX1T20. a#BYPASS 


TEST20: MOV @STACK. SP +LOAD THE STACK POINTER 
CLR OatWCEFLG +CLEAR THE WRITE CHECK ERROR FLAG 
“y gorse oRi - PICKUP FIRST CYLINDER 
1$:. TST (RO)+ ;MOVE TO NEXT DATA PATTERN 
CMP #16. %2..R0 +OUT OF PATTERNS? 
BGT 3$ + NO--BRANCH 
JSR RO. d# INCCYL +MOVE TO NEXT CYLINDER 
BR ExiT20 ;OUT OF CYLINDERS 
2$: CLR RO + START WITH PATTERN O 





MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
DZ2R JAB. P11 720 DATA 


06-SEP-77 16: 20 


001424 


001512 
000022 


004170 
162704 


000030 


030360 
000020 


016260 


016314 
001100 
000151 
025524 
001334 


000001 
000004 


016366 
001100 
000171 
025524 
000002 


030450 
027600 


001530 


162662 
001110 
004166 
162626 
001110 
004166 


162564 
162554 
001110 
004166 
162520 


38: BIT 


4§: MOVB 


5S: MoV 


6: BIT 


7$: TST 


8$: BIT 


9S: JSR 


EXIT20: SCOPE 


n 7? 
“ee 30(1046) 06-SEP-77 16:22 PAGE 94 


arene. + THIS m—z SELECTED? 
OtFT, RZ UFIRST TRACK 

Ri, @#OTAOPB+12 ; CYLINDER 

R2, d80TADPB+11 + TRACK 

R4,@8DTADPB+4  ;WORD COUNT 

LC.R1 *LAST DISK CYLINDER? 


5$ -BRANCH 

#18. .R2 ;LAST DISK TRACK? 
5$ +NO--BRANCH 

R5, d#OTADPB +4 ;SHORT WORD COUNT 
OSUR, RS + INHIBIT aie AND 


R3 +WRITE CHECK? 
#SHO4 !SHO3, RI 
+ YES--BRANCH 

PC. d#SE TBUF ;MOVE DATA PATTERN INTO THE BUFFER 
#SWO4, OSHR + INHIBIT WRITE? 
6$ + YES--BRANCH 
#. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
#STACK. SP LOAD THE STACK POINTER 
@WRITE. a#OTADPB+2 + COMMAND=WRITE DATA 
RO. d#DRVCAL ; START A DATA TRANSFER 
#SWO3, @SWR + INHIBIT WRITE CHECK? 
Ny + YES--BRANCH 

- SLPERR + SETUP THE ERROR LOOP ADDRESS 
#STACK - SP ;LOAD THE STACK POINTER 


#URCKD, DEOTADPB+Z + COMMAND=WRITE CHECK DATA 
RO, d#ORVCAL + START A DATA TRANSFER 


seers +WRITE oy ERROR FLAG SET? 

+ alae PERFORM RE READ AFTER FATAL “WCE”? 

#SWO2, ASR + INHIBIT READ DATA AND SOFTWARE COMPARE? 
9$ + YES--BRANCH 

#. , SLPERR + SETUP THE ERROR LOOP ADDRESS 

@STACK. SP +LOAD THE STACK POINTER 


#READ, A#DTADPB+2 + COMMAND=READ 

RO. d#DRVCAL + START A DATA TRANSFER 

#SWO1, ASWR + COMPARE THE DATA? 

9$ + NO--BRANCH 

PC, a#DATCHP +YES--D0 IT 

RO, o# INCTRK +MOVE TO NEXT TRACK 

% *OUT OF TRACKS GO TO NEXT PATTERN 


LOOP 
; SCOPE LOOP 


SEQ 0090 
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DZR JAB. P11 06-SEP-77 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 016440 
4823 016440 000240 
4824 016442 033737 
4825 016450 001002 
4826 016452 000137 
4827 016456 012737 
4828 
4829 016464 004737 
4830 016470 012737 
4831 016476 013777 
4832 016504 013737 
4833 016512 113737 
4834 016520 012737 
4835 016526 012737 
4836 016534 012737 
4837 016542 012737 
4838 016550 013737 
4839 016556 013737 
4840 016564 012737 
4841 016572 012737 
4842 016600 032737 
4843 016606 001027 
4844 016610 004037 
4845 016614 005037 
4846 016620 012737 
4847 016626 012706 
4848 016632 
4849 016632 004037 
4850 016636 105237 


16: 20 


001426 


017216 
000021 


024610 


025524 
004175 


001236 


001102 


001110 


3% EXERCISE TEST B22 
.SBTTL 2% EXERCISE TEST s2% 


jj RBRAAAAAAAAAAAAAAALAAALAAAAAAAAAAAA ATTA LAAT AAA TAAL A ATTA TTS 
+RTEST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


STARTING AT "FC" AND GOING THROUGH “LC” THE DISK PACK 
1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
FOR THAT SECTOR. 

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE "R" TIMES 
"R" DEFAULTS TO 20,000. 


1) GENERATE A RANDOM ADDRESS 

2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 

3) GENERATE A RANDOM ADDRESS 

4) READ THE =e AT THE ADDRESS 
GENERATED IN 3. 

5) DO A SOF THARE CHECK OF THE DATA READ IN 4. 

6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 

7) GENERATE A RANDOM ADORRESS 

8) READ THE SECTOR AT THE ADDRESS 
GENERATED IN 7. 

9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 


Bc Be Go Ge Ge Gs Ge Ge Ge Ge Ge Gs Ge Gs Ge Ge Be Ge Ge Se 
PE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE FE DE DE DE 


10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
Le  saenaaiataiatnaen tase aimiratebondnne matt innitnt 
1: 


NOP 

BIT BITS+<21%2-40>, TSTNMS+2 ;00 THIS TEST ? 
BNE 64S + YES--BRANCH 

JMP TST22 +NO--GO TO THE NEXT TEST 


64S: MoV #21, d#STSTNM ;SET UP TEST NUMBER AND 
+CLEAR THE ERROR FLAG (SERFLG) 
JSR PC, LODPRM ;LOAD THE PARMETERS FOR THE TEST 
MOV #TEST21, 08SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MoV STSTNM. ADISPLAY ;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MOV OERPT, STIMES +GET THE ITERATION COUNT 
MOVB ERR. CT. SERMAX ;MAX ERRORS ALLOWED FOR TEST 
MOV #. . SLPADR + SETUP THE LOOP ADDRESS 
MOV #EX1T21, d#BYPASS 
MOV #176543. @8SHINUM ; PRIME THE RANDOM NUMBER GENERATOR 
MoV #123456, d8SLONUN 
Mov @tFC, atOTAOPB+1Z2 7 CYLINDER 
MOV TRCKWC, @#DTADPB+4 > WORD COUNT 
MOV #BUFFER, at0TADPB+6 ; BUFFER ADDRESS 
MoV SHRITE, aeDTADPB+2 > COMMMAND 
BIT #SW15.a8C.SWR -WRITE B...% DISK PACK BEFORE TESTING? 


BNE 3$ +NO--BRAN 

JSR RO. d8F ILRAN SPILL DATA 5 AA WITH RANDOM DATA 
18: CLR atO0TADPB+10 +SECTOR AND TRACK 

MOV #. . SLPERR SETUP THE ERROR LOOP ADDRESS 

MOV @STACK. SP LOAD THE STACK POINTER 
2s: 

JSR RO. a#ORVCAL START A DATA TRANSFER 

INCB at0TADPB+11 NEXT TRACK 


SEQ 0091 
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DZR JAB. P11 06-SEP-77 16:2 RANDOM ADDRESS AND RANDOM PATTERN TEST SEQ 0092 
4851 016642 122737 000023 004175 CMPB #19. ,d8OTAOPB+11 ; TIME FOR NEXT CYLINDER 
4852 016650 003370 BGT 2$ + NO--BRANCH 
4853 016652 005237 004176 INC atOTADPB+12 
4854 016656 023737 001512 004176 CMP Sel, aBDTAOPBH12 * OUT OF CYLINDERS? 
4855 016664 002353 BGE 1$ ANCH 
4856 016666 012737 177400 004170 3%: MOV ASCTRUC, aeOTADPB+Y ; WORD COUNT 
4857 016674 012737 016710 001106 MOV #TEST2Z1, OOSLPAOR 
4858 016702 012737 016710 001110 MOV #TEST21, O#SLPERR 
4859 016710 012706 001100 TEST21: MOV STACK. SP +SET STACK POINTER 
4860 016714 O04037 031242 JSR RO. @#RANADR ;GENERATE A RANDOM ADDRESS 
4861 016720 013737 004174 001340 Mov OtOTADPB+10, ABSVADR +; SAVE THE TRACK/SECTOR 
4862 016726 013737 004176 001342 MOV @tOTADPB+12, B#SVADR+2 ; SAVE THE CYLINDER 
4863 016734 012737 000161 004166 MOV #UR ITE, SOTADPB+2 ; ; COMMAND=WRITE DATA 
4864 016742 012701 047712 MOV #BUFFER, R1 ; BUFFER ADDRESS 
4865 016746 010137 004172 MOV Ri, @#OTADPB+6 
4866 016752 004037 031206 JSR RO, @#RANPAT GENERATE RANDOM PATTERN 
4867 016756 012737 016756 001110 MOV #. . SLPERR + SETUP THE ERROR LOOP ADDRESS 
4868 016764 012706 110 MoV #STACK, SP +LOAD THE STACK POINTER 
4869 016770 004037 025524 JSR oe teeeunok + START A DATA TRANSFER 
4870 016774 004037 031242 JSR RO, @#RANAOR 
4871 017000 012737 000171 004166 MOV #READ, A#OTADPB+2 ; COMMAND=READ DATA 
4872 017006 012737 050712 004172 MOV #BUF FER+512. , @#DTADPB+6 ; BUFFER ADDRESS 
4873 017014 012737 017014 001110 MOV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
4874 017022 012706 001100 MOV STACK. SP +LOAD THE STACK POINTER 
4875 017026 004037 025524 JSR RO. @#ORVCAL + START A DATA TRANSFER 
4876 017032 C04037 031010 JSR RO, S#RANCK + CHECK THE DATA 
4877 017036 013737 O01S4O 004174 MOV @tSVADR, @#OTAOPB+10 ;GET ADDRESS OF WHERE THE LAST 
4878 017044 013737 001342 004176 MOV @tSVADR+2, S#DOTADPB+12 7 WRITE WAS PERFORMED 
4879 017052 012737 000151 004166 MOV #WRCKO, @#DTADPB+2 > COMMAND=WRITE CHECK DATA 
4880 017060 012737 047712 004172 Mov #BUFFER, a@0TAOPB+6 ; DATA BUFFER ADDRESS 
4881 017066 012737 017066 001110 MoV #. , SLPERR + SETUP THE ERROR LOOP ADDRESS 
4882 017074 012706 001100 MOV #STACK. SP +LOAD THE STACK POINTER 
4883 017100 004037 025524 JSR RO. @#ORVCAL START A DATA TRANSFER 
4884 017104 O04037 031242 JSR RO. d#RANADR GENERATE A RANDOM ADDRESS 
4885 017110 012737 000171 004166 MOV #READ, @#DTADPB+2 + COMMAND=READ 
4886 017116 012737 050712 004172 MOV SBUFFER+512. , @EDTADPB+6 ; DATA BUFFER ADDRESS 
4887 017124 012737 017124 001110 MOV #. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
4888 017132 012706 001100 MoV aSTACK. SP ;LOAD THE STACK POINTER 
4889 017136 004037 025524 JSR RO. @#ORVCAL + START A DATA TRANSFER 
4890 017142 004037 031010 JSR RO. @#RANCK +CHECK THE DATA 
4891 017146 013737 001340 004174 Mov @ESVADR. A#OTADPB+10 > GET DISK ADDRESS OF THE 
4892 017154 013737 001342 004176 Mov @tSVAOR+2, S#OTADPB+12 > LAST WRITE 
4893 017162 012737 000151 004166 MOV #WRCKD, @SDTADPB+2 + COMMAND=WRITE CHECK DATA 
4894 017170 012737 047712 004172 Mov BUFFER, a#0TADPB+6 > DATA BUFFER ADDRESS 
4895 017176 012737 017176 001110 MOV #. . SLPERR +SETUP THE ERROR LOOP ADDRESS 
4896 017204 012706 001100 MOV #STACK, SP +LOAD THE STACK POINTER 
4897 017210 004037 025524 JSR RO, d#ORVCAL START A DATA TRANSFER 
eo 017214 000004 EX1T21: SCOPE LOOP ? 
4 
4900 .SBTTL %£&% RPOW ACCESS TIME ADJUSTMENT TEST %2% 
4901 
4902 en eae tad aaa ie 
4903 TEST 22 RPOY ACCESS TIME ADJUSTMENT TEST 
4904 
4905 THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS O & 136 TO ALLOW THE 





eS 
ot 2t 


OPERATOR TO ADJUST THE ACCESS TIME ON AN RPOY USING THE 


MD-11-DZRJA-B RPO4/5/6 tate AND ~— TEST 


DZR JAB. Pil 


017216 


017234 


017242 
017246 


017352 
017356 
017362 
017364 


017366 
017366 
017372 


017414 


017451 
017452 


000240 


012737 


004737 
012737 


000004 


104401 
000410 


005737 
001434 
104401 
000405 


013746 
104403 


104401 


06-SEP-77 16:2 


001430 


017366 
000022 


024610 


026364 


001510 
000105 
026032 
026564 


017374 


001232 
017430 


001254 


017460 


001236 


001102 


001110 
161660 
001204 
001115 
001106 


004116 
004106 


004116 
004106 


:x 
;x 


64S: 


TEST22: 


C 8 
MACY11 30(1046) 
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RPOY ACCESS TINE ADJUSTMENT TEST 


DDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
SO THAT THE ACCESS TIME INDICATORS ON THE DOU MAY BE OBSERVED. 


= gaeeepypiee seen: miiemnipnonmeenonectetaesciaehin nical mahen it hie 


. WORD 


EXIT22: SCOPE 


BITS+#<22%2-40>, T 
64S 


SEOP 
#22, dSTSTNN 


PC, LODPRM ; 
#TEST2Z2, OESLPERR 


STSTNM. aDISPLAY 
OFRPT, STINES 
#100. , SERMAX 
#TEST22. SLPADR 
#STACK, SP 

LC. OPB. A+12 
#SEEK, d#0PB. A+Z 
RO. @#CALL. A 

RO. STALL 

STALL3 

FC, OPB. A+12 
#SEEK, d#DPB. A+2 
RO, @#CALL. A 

RO. STALL 

STALL3 


.SBTTL END OF PASS ROUTINE 


js RERAAAAAAAAAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
+ XINCREMENT THE PASS NUMBER (SPASS) 

;KXINDICATE END-OF-PROGRAMN AFTER 8. PASSES THRU THE PROGRAM 

;KIF THERES A MONITOR GO TO IT 


;KIF THERE ISN'T JUMP TO RESTART 


SEOP: 
77658: 
64S: 


72675: 
668: 


, 65% 


STNMS+2 +00 THIS TEST ? 
YES--BRANCH 
;NO--GO TO THE END OF THE PROGRAM 


ER AND 
CLEAR THE ERROR FLAG (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
+ SETUP THE LOOP ON ERROR ADDRESS 
+LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
+GET THE ITERATION COUNT 
;MAX ERRORS ALLOWED FOR TEST 
+ SETUP THE LOOP ADDRESS 
+SETUP THE STACK POINTER 
+ENDING CYLINDER 
+ SEEK=COMMAND 
4 Any EXECUTE THE COMMAND 
; ADDRESS OF STALL VALUE 
STARTING CYLINDER 
; SEEK=COMMAND 
+GO EXECUTE THE COMMAND 
+ STALL 
sROORESS OF STALL VALUE 
LOOP ? 


++ TYPE ASCIZ STRING 
+GET OVER THE ASCIZ 


64S 
<CR><LF><LF>/END. OF PASS/ 


O#ORVSEL 

13 

, 67% 

66$ 

7 ON DRIVE 
@SCHKORV, - (SP) 


, 698 


ANY DRIVES SELECTED? 
;NO--BRANCH 

+2 TYPE ASCIZ STRING 
+-GET OVER THE ASCIZ 


;;SAVE @&CHKORV FOR TYPEOUT 
;;GO TYPE--OCTAL ASCII 

+2 TYPE 2 DIGIT(S) 

>, SUPPRESS LEADING ZEROS 

+; TYPE ASCIZ STRING 


SEQ 0093 


MD-11-DZRJA-B RPO4Y/5/6 rite AND area - TEST 


DZR JAB. P11 


017456 


017560 


017600 
017600 
017604 
017610 
017612 
017614 
017616 
017620 
017622 
017624 
017624 
017626 
017630 


06-SEP-77 


000412 


013746 


000407 


104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 


000137 
006102 

377 
017634 


001112 


001112 
001102 
001204 
001100 
100009 


017562 


017630 
000042 


377 


0 8 
MACY11 30(1046) 
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+3695: 
685: 


1$: 


001100 


SEOPCT: . 


SENDCT: . 


+; 655: 
64S: 


$GET4Z. 


SENDAD: 


SDOAGN: 


SRTNAD: . 
OOO SENULL: . 


BR 
.ASCIZ 
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4+GET OVER THE ASCIZ 


68$ 
7 ERRORS DETECTED=/ 


OSSERTTL, -(SP) 
O#SERTTL 

$P 

#100000. SPASS 
(PC)+ 

8. 

$SDOAGN 
(PC) +, 0(PC)+ 
8. 

, 655% 

644 
<CR><LF>ZEND OF 
, SENULL 
0#42,R0 
$DOAGN 

PC, (RO) 


a(PC)+ 
RESTART 
-1,-1,0 


++ SAVE @ASERTTL FOR TYPEOUT 

+GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
;ZERO ERROR TOTAL 
++ ZERO THE TEST NUMBER 
++ ZERO THE NUMBER OF ITERATIONS 
++ INCREMENT THE PASS NUMBER 
eo ALLOW A NEG. NUMBER 


77 YES 
++RESTORE COUNTER 


++ TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 
TEST/ 


> TYPE NULL CHARACTER 
++GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
+;CLEAR THE WORLD 

;;GO TO MONITOR 

7+ SAVE ROOM 

77 FOR 

+;ACTII 


++RETURN 
+;NULL CHARACTER STRING 


SEQ 0094 


MO-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
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017634 


06-SEP-77 


104407 


032777 
001004 
004737 
104401 


005777 


013716 


023737 
001001 
000000 
013737 
013737 


000400 
001230 
001420 
001422 
001103 


001102 
002000 
001210 
001112 
001116 
000002 
161154 
020000 


020054 
001215 


161150 


001000 


001110 
001206 


001206 
000042 


001414 
001416 


161274 


001150 
001152 


161236 
161226 


001116 
001114 
161166 


161134 


000046 


001150 
001152 
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.SBTTL kX SYSMAC SUBROUTINES x42 


.SBTTL ERROR HANDLER ROUTINE 


+s RAEXAAAAAAALALALALALALA LAAT ALAA AAA AA AAA AAA AAA AAA AAAS 
sXTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
+KSAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

+*AND GO TO TYPERR ON ERROR 
+ THE SWITCH ih PROVIDED BY THIS ROUTINE ARE: 


T ON ERROR 
INHIBIT ERROR TYPEOUTS 


, xSW15=1 
+ *SW13=1 
+ *SW10=1 
+ ¥SWO9=1 
* ee 


SERROR: 


75: 


15: 


208: 
2$: 


3: 


4S: 


5S. 


6S: 


BELL ON ERROR 
LOOP ON ERROR 


N + ERROR=EMT AND N=ERROR ITEM NUMBER 


#SWO8, ASR 
7$ 

O*LPTAVL 

7$ 

OELPS, O#STPS 


OELPB, O#STPB 
~ eal 


$ 
STSTNM, DISPLAY 


#81710, dSWR 
1$ 

, SBELL 
SERTTL 
(SP), SERRPC 
#2, SERRPC 


OSERRPC. SITENB 


#81713. dSWR 


208 
PC, TYPERR 
» SCRLF 


aSWR 

3$ 

#B1TO9, aSWR 
4 


$ 
SLPERR. (SP) 
SESCAPE 


5$ 

SESCAPE. (SP) 
0842, D846 
6$ 


OS TPS, 9#STPS 
Ot TPB. deSTPB 


+; TEST FOR CHANGE IN SOFT-SUWR 

;SEND ERROR MESSAGE TO TTY? 

+ YES--BRANCH 

; 1S THERE A LINE PRINTER AVAILABLE? 
+; NO--BRANCH 

; YES--SETUP STATUS 

;AND BUFFER REG. 'S FOR LINE PRINTER 
++SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 
+;DISPLAY TEST NUMBER AND ERROR FLAG 
++BELL ON ERROR? 

++NO - SKIP 

7-RING BELL 

;;COUNT THE NUMBER OF ERRORS 

;;GET ADDRESS OF ERROR INSTRUCTION 


+-STRIP AND SAVE THE ERROR ITEM CODE 
+;SKIP TYPEOUT IF SET 

++SKIP TYPEOUTS 

++GO TO USER ERROR ROUTINE 


;;HALT ON ERROR 

7; SKIP IF CONTINUE 

+7HALT ON ERROR! 

7; TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON ERROR SWITCH SET? 

7-BR IF NO 

;+FUDGE RETURN FOR LOOPING 

+; CHECK FOR AN ESCAPE ADDRESS 
;7BR IF NONE 

;,FUDGE RETURN ADDRESS FOR ESCAPE 


;ACT11 AUTOMATIC MODE? 
+NO. CONTINUE 

*HALT ON ERROR 

SET STATUS AND BUFFER REG. ‘S 
FOR TTY 


SEQ 0095 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
6: 20 ERROR HANDLER ROUTINE 


DZ2R JAB. P11 


5052 
3 


020052 


020054 
020062 
020064 
020070 


020252 


06-SEP-77 1 


000002 


112737 
104412 


001102 001176 
000004 
001162 
001164 
001166 
001170 
001172 
001174 
001114 


000240 
004 306 
020164 


001215 


000041 
001260 


004254 
020220 


020246 


001215 


RTI 


, 
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;RETURN FROM ERROR CALL 


jp ARRAAAAAAAARAAAAAA ALAA ALAA AA AAA A AAA AAA AA AA AAA AAA AAA ATA ATA T ATS 
.SBTTL TYPERR - TYPE ERROR ROUTINE 

+ THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE 
WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR 
+; TABLE” (SERRTB). AND REPORTS THE APPROPIATE INFORMATION 

+ CONCERNING THE ERROR. 


*CALL 


, 


TYPERR: 


15: 


23: 


+3655: 
64S: 
38: 


4S: 
5S: 


JSR 
RETURN 


MOVB 


PC, O#TYPERR 


OESTSTNM. DESTMPO ; SAVE THE TEST NUMBER 
;$A VE RO - RS 


#4,R0 ; FORM TEST PC 

RO. d#SREGO ; COPY RO-RS IN SREGO-SREGS 
Ri, O#SREG1 

R2, 9#SREGZ 

R3, O#SREGS 

R4, O#SREGY 

RS, d#SREGS 

O#S1TEMB. RO ;PICKUP ERROR ITEM NUMBER 

RO, R1 AND COPY IT INTO R1 

FORM INDEX FOR ERROR TABLE 
RO 

RO 

1$ + 1S ERROR > 377 

#1 TEMY1-SERRTB.RO ; YES--FORM OFFSET 

#SERRTB, RO ;FORM ADDRESS 

(RO)+, 2$ +GET ERROR MESSAGE (EM) POINTER 
7$ +BRANCH IF THERE ISN'T ONE 

- SCRLF ;"CARRIAGE RETURN - LINE FEED 
0 ;"EM" POINTER GOES HERE 
#41,R1 + SPECIAL ERROR ITEM NUMBER? 


7$ ;NO--BRANCH 
OFSVSTAT,R1 +GET STATUSZERROR INDICATOR 
R1 +STRIP “DONE” BIT (B1TO7) 


Rt STRIP "ERROR" BIT (BIT15) 
#STATBL, R2 ; 1ST ADDRESS ON STATUS MESSAGE POINTERS 
R3 CARRIAGE RETURN-LINE FEED SWITCH 

, 65S 3; TYPE ASCIZ STRING 

64S 3GET OVER THE ASCIZ 

are, 

(R2)+, 58 ;MESSAGE POINTER 

R1 ; TYPE THIS MESSAGE? 

6s ;NO--BRANCH 

R3 ;YES--TYFE A "CR" & "LF"? 

4S ; NO--BRANCH 

, SCRLF ; YES 

0 ;MESSAGE POINTER GOES HERE 

Ri ;MORE TO TYPE? 

6$ ;NO--BRANCH 


SEQ 0096 


MD-11-OZRJA-B RPO4Y/5/6 aa AND eres TEST 


DZR JAB. P11 


020254 
020260 
020262 
020264 
020270 


020274 
020274 
020300 
020302 
020306 
020310 
020312 
020314 
020316 
020320 
020322 
020324 
020326 
020330 
020334 
020336 


06-SEP-77 


104401 
000761 
001360 
104401 
000401 


012037 


000207 


044040 


020272 


020310 
001215 


001215 


044040 


001215 


044040 
020416 


001215 


044040 
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YPERR - TYPE ERROR ROUTINE 


65: 


+675: 
665: 
7$: 


85: 
95: 


105: 
11S: 


12S: 


135: 


14S: 


15%: 


16S: 


175: 
208: 


MSG. SP 
3$ 


(RO) +, 8$ 
9$ 
- SCRLF 


0 
(RO)+,R1 
20% 


RS 
(RO)+,RO 
(RO)+,R2 
17% 

RS 

- SCRLF 
(RO)+,R3 
(RO)+,R4 
R4 

12$ 
O(R1)+,- CSP) 
13$ 


O(R1)+,-(SP) 


MSG. SP 
(RO)+, 16% 
0 

, SCRLF 

RS 

10% 

, SG. SP 
10% 


PC 


.SBTTL TYPE ROUTINE 


js RXRAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
; ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


;KTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
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+ YES--SPACES 
; LOOP 


as 

+BRANCH IF NOT FINISHED 
++ TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 


PICK UP DATA HEADER (OH) POINTER 
+BRANCH IF NONE 
i; CARRIAGE RETURN-LINE FEED 


;"DH" POINTER GOES HERE 

+PICKUP DATA TABLE (OT) POINTER 
+ BRANCH IF NONE 

+SET INDENT SWITCH 

+DATA FORMAT (DOF) POINTER 
;NUMBER OF DH'S TO TYPE 

BRANCH IF DH NUMBER IS 0 

+NO_ INDENT 

CARRIAGE RETURN-LINE FEED 
;NUMBER OF DATA WORDS TO TYPE 
+AND HOW TO TYPE THEM 

;OCTAL OR DECIMAL? 

+ DEC 1MAL--BRANCH 

+;SAVE O(R1)+ FOR TYPEOUT 

++GO TYPE--OCTAL ASCIICALL DIGITS) 


;;SAVE O(R1)+ FOR TYPEOUT 
++GO TYPE--DECIMAL ASCII WITH SIGN 
+MORE NUMBERS TO TYPE? 

+ NO--BRANCH 

+ YES--TYPE SEPERATORS 

+ LOOP 

+MORE DH'S? 

+NO--BRANCH 

+ YES--START A NEW LINE 

+ INDENT? 

+NO--BRANCH 

+ YES--TYPE SPACES 

+GET NEXT DH 

+AND TYPE IT 

+DH POINTER GOES HERE 

+ CARRIAGE RETURN-LINE FEED 
+ INDENT? 

;NO--BRANCH 

—_ Te SPACES 


LOOP 
RESTORE RO - RS 
RN 


;RET 


SEQ 0097 


MD-11-OZRJA-B RPO4Y/5/6 MECHANICAL AND sg TEST 


DZR JAB. P11 


020442 


O6-SEP-77 1 


10737 
100002 
000000 
000407 


013746 
105366 


000770 


112716 


16: 20 


G01157 


000002 


000002 
000011 
000200 


020656 


020612 
001156 


001154 
000001 


020612 
020656 


000040 
020612 
000007 020656 


160332 


000002 160324 
000015 000002 


4 is USING : TRAP INSTRUCTION 


YPE ROUTINE 

+ RNOTE1: 

; KNOTE2: 

, + tis 3: 

; CALL 

: £0R 

; TYPE 

;x MESADR 

+x 

STYPE: TSTB 
BPL 
HALT 
BR 

1$: MOV 
MoV 

23: MOVB 
BNE 
TST 

605: MOV 

34: ADD 
RTI 

4S: CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
CLRB 
BR 

5S: JSR 

6S: CMPB 
BNE 
MoV 

7S: DECB 
BLT 
JSR 
DECB 
BR 

;HORIZONTAL TAB 

8$: MOvB 

95: JSR 
BITB 
BNE 
TST 
BR 

STYPEC: TSTB 
BPL 
MOVB 
CMPB 
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SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
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SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


, MESADR 


STPFLG 
1$ 


3$ 
RO, - (SP) 
a2¢(SP),RO 
4§$ 

(SP )+ 
(SP)+,RO 
#2, (SP) 


#HT, (SP) 
8$ 

@CRLF, (SP) 
5$ 

(SP )+ 


SCHARCNT 
$ 


2 
PC, STYPEC 
SF ILLC, (SP)+ 


2$ 
SNULL. - (SP) 


1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 
7$ 


PROCESSOR 
#' . (SP) 


PC, STYPEC 
#7, SCHARCNT 
9$ 


$ C 
2(SP), dSTPS 
#CR, 2(SP) 


;;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 


+18 THERE A TERMINAL? 
+;BR IF YES 
LEAVE IF NO TERMINAL 


; RO 

;;GET ADDRESS OF ASCIZ STRING 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

32 1F TERMINATOR POP IT OFF THE STACK 
7;RESTORE RO 

;;ADJUST RETURN PC 

;+RETURN 

;;BRANCH IF <HT> 


;;BRANCH IF NOT <CRLF> 


;;POP <CR><KLF> EQUIV 
+; TYPE A CR AND LF 


>; CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

;;GO TYPE THIS CHARACTER 

3721S 1T TIME FOR FILLER CHARS. ? 
7; 1F NO GO GET NEXT CHAR. 

;;GET @ OF FILLER CHARS. NEEDED 
;7AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
7;GO TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

7; LOOP 


;;REPLACE TAB WITH SPACE 

77 TYPE A SPACE 

;;BRANCH IF NOT AT 

7; TAB STOP 

;:POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
++ 1S CHARACTER A CARRIAGE RETURN? 


SEQ 0098 
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DZR JAB. P11 


020772 


001003 
105037 


000406 
122766 
001402 
105227 
000000 
000207 


017646 
116637 
112637 
062716 
000406 


112737 
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020656 
000012 


000000 
000001 
021107 
000002 


000001 
000006 
000005 


021107 


000006 
021106 
021105 
000012 


000002 


021105 


021105 
021107 
021104 


TYPE ROUTINE 
BNE 1$ ++ BRANCH IF NO 
CLRB SCHARCNT 5: YESe~CLEAR CHARACTER COUNT 
BR STYPEX sEXIT 
1$: CMPB aLF, 2(SP) 3311S CHARACTER A LINE FEED? 
BEQ STYPEX ++BRANCH IF YES 
INCB (PC)+ +; COUNT THE CHARACTER 
SCHARCNT: . WORD 0 ++ CHARACTER COUNT STORAGE 


STYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


js REXAAAAAAAAAAAAAARAA AAA AAA AAA AA AA AAAS AAA AAA AAA AAA AAA AAA AAAI S 

;4%THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
+*OCTAL (ASCI1) NUMBER AND TYPE IT. 

;XSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


+ ¥CALL: 
MoV NUM, - (SP) +;NUMBER TO BE TYPED 
TYPOS ++CALL FOR TYPEOUT 
.BYTE N ++N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
.BYTE +-M=1 OR O 


++1=TYPE LEADING ZEROS 
++ O=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
STYPOS OR STYPOC 


re ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
DE DE DE DE DE DE DE FE FE DE DE DE DE FE DE FE DE 


CALL: 
MoV NUM, - (SP) ++NUMBER TO BE TYPED 
TYPON ++CALL FOR TYPEQUT 
STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
CALL: 
MoV NUM, - (SP) +;NUMBER TO BE TYPED 
TYPOC +7CALL FOR TYPEOUT 
STYPOS: MOV (SP), -(SP) ++PICKUP THE MODE 


MOVB 1(SP), SOF ILL +,LOAD ZERO FILL SWITCH 
MOVB (SP)+,S$OMODE+1 +; NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) +; ADJUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOVB #1, S0F ILL +;SET THE ZERO FILL SWITCH 


MOVB #6, SOMODE +1 ++SET FOR S1X(6) DIGITS 
STYPON: MOVB #5, SOCNT +7SET THE ITERATION COUNT 


MoV R3.-(SP) + SAVE R3 
MOV R4, -(SP) +; SAVE RY 
MOV RS, - (SP) + SAVE RS 
“> naa, +;GET THE NUMBER OF DIGITS TO TYPE 
N 
ADD #6,R4 +;SUBTRACT IT FOR MAX. ALLOWED 
MOvB R4, SOMODE +;SAVE IT FOR USE 
MOVB SOF ILL. RY +,GET THE ZERO FILL SWITCH 
MoV 12(SP).R5 ++PICKUP THE INPUT NUMBER 
CLR R3 »;CLEAR THE OUTPUT WORD 
1$ ROL RS +ROTATE MSB INTO "C” 


BR 3$ +:GO DO MSB 
25: ROL RS +7FORM THIS DIGIT 


SEQ 0099 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 


DZ2R JAB. P11 


021106 


021110 


021144 


000000 


010046 
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021106 
177770 


000060 
000040 
021102 
021102 
021104 


000002 000004 


020200 
000020 


000055 9000001 


BINARY TO OCTAL 


3S: 


4S: 
55: 


7$: 


6S: 


85: 
SOCNT: 


SOFILL. . 
SOMODE: 


. WORD 
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(ASCII) AND TYPE 


RS 

RS 

RS,R3 

R3 

aaa 
dala 


2(SP),4(SP) 
(SP)+, (SP) 
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SEQ 0100 


++;GET LSB OF THIS DIGIT 

++ TYPE THIS DIGIT? 

+7BR_ IF NO 

++GET RID OF JUNK 

++ TEST FOR O 

++ SUPPRESS THIS 0? 

+7BR IF YES 

+;DON'T SUPPRESS ANYMORE O'S 
+¢MAKE THIS DIGIT ASCII 
++MAKE ASCII IF NOT ALREADY 
++ SAVE FOR TYPING 

++GO TYPE oa DIGIT 

++ COUNT 

+-BR IF MORE TO DO 

++BR IF DONE 

+; INSURE LAST DIGIT ISN'T A BLANK 
++GO DO THE LAST DIGIT 

++ RESTORE RS 

++RESTORE R4 

++RESTORE R3 

3+SET THE STACK FOR RETURNING 


7+ RETURN 

+; STORAGE FOR ASCII DIGIT 

3; TERMINATOR FOR TYPE ROUTINE 
;,O0CTAL DIGIT COUNTER 

7;ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


jj MAEXAAAAAAAAAAAAA ALARA AA AAA AAA AAA AAA A AAT AAA AAA AAAS AAA TATA AAAS 

; THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 

; SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
; NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE 


; REPLACED WITH SPACES. 


+ CALL: 


, 


;* 


STYPDS: 


1$: 


NUM, - (SP) 


RO, -(SP) 
Ri. -(SP) 


#20200. -(SP) 
a 
1 


RS 
@'-, 10SP) 
RO 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


;+PUT THE BINARY NUMBER ON THE STACK 
+;GO TO THE ROUTINE 


+;PUSH RO ON STACK 

+;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;PUSH P3 ON STACK 

7-PUSH R5& ON STACK 

;;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 

;7BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 
7; MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 


MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND nat TEST 


DZR JAB. P11 


021146 


021324 


021334 
021336 
021340 
021342 


06-SEP-77 


012703 
112723 
005002 


021344 


16: 20 


021324 
000040 


021314 


000001 
000060 
000040 


177777 


000010 


177777 


021324 
000002 000004 


177776 


75: BIS 


8$: TSTB 


9S: CLRB 


SOTBL: 


SOBLK: . BLKW 


K 
MACY11 30¢ 
#SOBLK, R3 
#° .(RI)+ 
R2 


SOTBL(RO).R1 
RS 


6 
1(SP),-1(R3) 
#'0.R2 


#' ,R2 
RZ, (R3)+ 
(RO)+ 
RO, #10 
23 

8% 
R5,R2 

6$ 

(SP)+ 

95 
-1(SP),-2(R3) 


(SP)+,RO0 

, SOBLK 
2(SP),4(SP) 
(SP)+, (SP) 


4 


.SBTTL TTY INPUT ROUTINE 
«Waar  eeenmetnerennnanrnanhiiaenaniemeagaanenamuanniiete: 
L 


. ENABL 

STKCNT: . WORD 
STKQIN: . WORD 
S$TKQOUT: . WORD 
STKQSRT: . BLKB 
STKQEND=. 


0 
0 
2 


;4TK INITIALIZE ROUTINE 
;HTHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 


8 
1046 
ONVERT BINARY TO DECIMAL AND 


06-SEP-77 
YPE ROUTINE 


+; SETUP THE OUTPUT POINTER 

3;SET THE FIRST CHARACTER TO A BLANK 
+; CLEAR THE BCD NUMBER 

++GET THE CONSTANT 

;7FORM THIS BCD DIGIT 

+7BR IF DONE 

3; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 

7; CHECK IF BCD DIGIT=0 

77FALL THROUGH IF 0 

STILL DOING LEADING 0's? 
F YES 
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F NO 
i YES-<SET THE SIGN 
+; MAKE THE BCO DIGIT ASCII 
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 
+; CHECK THE TABLE INDEX 
+:GO DO THE NEXT DIGIT 
++:GO TO EXIT 
;;GET THE LSO 
+;GO CHANGE TO ASC! 
++WAS THE LSD THE FIRST NON-ZERO? 
;-BR IF NO 
++ YES--SET THE SIGN FOR TYPING 
;+SET THE TERMINATOR 
;;POP STACK INTO RS 
;2POP STACK INTO R3 
;2POP STACK INTO R2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
+;ADJUST THE STACK 


+;RETURN TO USER 


;;NUMBEP OF ITEMS IN QUEUE 
72 INPUT FOINTER 

>, OUTPUT POINTER 

+2 TTY KEYBOARD QUEUE 


SEQ 0101 


MO-11-DZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
DZ2R JAB. 


Pil 


021344 
021350 
021356 
021364 
021372 
021400 
021404 
021412 


021414 
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005037 
012737 
013737 
012737 
012737 
005777 
012777 
000207 


117746 


021334 


157526 
177600 
000003 


022544 
021344 


004660 
000007 


000176 


000002 
001210 


000023 
157424 
157416 
157412 
177600 
000021 
000100 


021334 
000140 


021336 
021340 
000060 
000062 


157532 


001140 


021334 


157370 
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TTY INPUT ROUTINE 
+KSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


; ¥CALL: 
t 


; JSR 
i* RETURN 


STKINT: CLR 
" 


PC, STKINT 


STKCNT 
#STKQSRT, STKQIN 
STKQIN, STKQOUT 
#STKSRV, OETKVEC 
#200, Qe TKVEC+2 


oSTKB 
#100, dSTKS 
PC 


+¥TK SERVICE ROUTINE 
sTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;%BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
+*1T IN THE QUEUE. 


+*IF THE CHARACTER IS A “CONTROL-C" ( 


06-SEP-77 16:22 PAGE 106 


++CLEAR COUNT OF ITEMS IN QUEUE 
+;MOVE THE STARTING ADDRESS OF THE 


+sQUEUE INTO THE INPUT & OUTPUT POINTERS. 


7; INITIALIZE THE KEYBOARD VECTOR 
+7 "BR" LEVEL 4 

+- CLEAR DONE FLAG 

+;ENABLE TTY KEYBOARD INTERRUPT 
+;RETURN TO CALLER 


C) STKINT 1S CALLED AND 


;XUPON RETURN EXIT IS MADE TO THE “CONTROL-C" RESTART ADDRESS (START2) 


STKSRV: nove 


1$: CMP 


23: 


3$: CMP 


318: TSTB 


32S: INC 


# C177, (SP) 


2$ 
#SWREG. SWR 
6$ 


#2, STKCNT 
3$ 


, SBELL 
(SP )+ 


aSTKB, - (SP) 
# C177, (SP) 
(SP)+, #21 


31$ 
#100, dSTKS 


STKCNT 
(SP), #140 
4§ 


++PICKUP THE CHARACTER 
+-STRIP THE JUNK 

+218 tT A CONTROL C? 
7;BRANCH IF NO 

72 TYPE A CONTROL-C ( C) 
>; INIT THE KEYBOARD 
>2CLEAN UP STACK 
+;CONTROL C RESTART 
7271S tT A CONTROL G? 

3; BRANCH IF NO 

7218S SOFT-SWR SELECTED? 
+;GO TO SWR CHANGE 


+218 THE QUEUE FULL? 

++BRANCH IF NO 

+-RING THE TTY BELL 

ay CHARACTER OFF OF STACK 
7218S tT A CONTROL-S? 

>-BRANCH IF NO 

;;DISABLE TTY KEYBOARD INTERRUPTS 
7-CLEAN CHAR OFF STACK 

7;WAIT FOR A CHAR 

;+LOOP UNTIL ITS THERE 

+-GET THE CHARACTER 

7;MAKE IT 7-BIT ASCII 

7271S tT & CONTROL-Q? 

++BRANCH IF NO 

7;REENABLE TTY KEYBOARD INTERRUPTS 
7- RETURN 

+2 COUNT THIS CHARACTER 

77 1S tT UPPER CASE? 

;2BRANCH IF YES 


SEQ 0102 
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021570 


021622 
021630 


021632 
021640 
021642 
021646 
021650 
021654 
021660 
021664 


021666 
021674 
021676 
021700 
021704 


06-SEP-77 1 


021627 


123727 


005077 


021710 
021716 


021752 
021756 


021762 


02 
022010 


001015 


012777 


000175 


000040 
177530 
021336 

021336 


021342 


000176 
157276 
157272 


177600 
000007 


001134 


021344 
157234 
000001 
022556 
022563 
000176 


022574 
157174 
157170 
177600 
000003 
022544 
000006 
001135 
000100 


021344 
021336 


001140 


000001 


001135 


000001 
157126 


n 8 
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Y INPUT ROUTINE 


CMP (SP), #175 +318 17 A SPECIAL CHAR? 
BGT 4§ ++BRANCH IF YES 
BIC #40, (SP) ;MAKE IT UPPER CASE 
4§: MOVB (3P} 4, aSTKOIN ++ AND PUT IT IN QUELE 
INC STKQIN ;UPDATE THE POINTER 
CMP STKQIN, #STKQEND +560 OF F Hy END? 
BNE 5$ + BRANCH IF NO 
MoV #STKQSRT, STKQIN 7: RESET THE POINTER 
55: RTI +2 RETURN 


+s RARRAAAAALALALATAAAAATATATALA TATA AAA AAA ASAT AAA TATA AAA AALS 
+ SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

+*ROUTINE 1S ENTERED FROM THE TRAP HANDLER. AND W 

+*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 

+ *CALL WHEN OPERATING 7 TTY INTERRUPT MODE. 

SCKSWR: CMP #SWREG, ++ 18 THE SOFT-SWR SELECTED 


BNE 15% 77EXIT IF NOT 

TSTB asTKs +218 A CHAR WAITING? 
BPL 15$ 37 1F NOT. EXIT 

MOVB aSTKB, -(SP) 


7+ YES 

+;MAKE IT 7-BIT ASCII 

7271S 1T A CONTROL-G? 

32 1F NOT. PUT IT IN THE TTY QUEUE 
++ AND EXIT 


jj RAERAAAAAAARAAAAALAAAAAAALAAAAAAAAALALA AA AAA AAA A AAA AIT 
;KCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;¥ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
;XCONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


BIC # C177, (SP) 
CMP (SP), #7 
BNE 2$ 


6S: CMPB SAUTOB. #1 +;ARE WE RUNNING IN AUTO-MODE? 
BEQ 2$ ++BRANCH IF YES 
TST (SP )+ ++CLEAR CONTROL-G OFF STACK 
JSR PC. STKINT ++FLUSH THE TTY INPUT QUEUE 
CLR asTKS +-DISABLE TTY KEYBOARD INTERRUPTS 
MOVB #1, SINTAG +7SET INTERRUPT MODE INDICATOR 
TYPE - SCNTLG +¢ECHO THE CONTROL-G ( G) 
SGTSWR: TYPE - SMSHR ++ TYPE CURRENT CONTENTS 
Mov SWREG, - (SP) +; SAVE SWREG FOR TYPEOUT 
TYPOC +-GO TYPE--OCTAL ASCIICALL DIGITS) 
TYPE » SMNEW +;PROMPT FOR NEW SWR 
19S: CLR ~ (SP) +-CLEAR COUNTER 
CLR ~ (SP) +; THE NEW SWR 
7$: TSTB asTKS ¢¢CHAR THERE? 
BPL 7$ +2 1F NOT TRY AGAIN 
MOVB @STKB. - (SP) ++PICK UP CHAR 
BIC # C177. (SP) +;MAKE IT 7-BiT ASCII 
CMP (SP), #3 21S IT & CONTROL-C? 
BNE 9$ +;BRANCH IF NOT 
TYPE - SCNTLC ++ YES. ECHO CONTROL-C (¢ C) 
ADD #6. SP +-CLEAN UP STACK 
CMPB SINTAG, #1 ++REENABLE TTY KEYBOARD INTERRUPTS? 
BNE 8$ +;BRANCH IF NO 
MOV #100, dSTKS +;ALLOW TTY KEYBOARD INTERRUPTS 


SEQ 0103 


MD-11-DZRJA-B RPO4/5/6 tes AND wg tg TEST 


N 8 
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+s CONTROL-C RESTART 


++ 1S tT A CONTROL-U? 

++ BRANCH IF NOT 

++ YES. ECHO CONTROL-U ( U) 
++ IGNORE PREVIOUS iNPUT 
SLeT's TRY IT AGAIN 


718 IT A CCR>? 
++ BRANCH IF _NO 
++ YES, a's eng FIRST CHAR? 


AND <LF> 
;;RE-ENABLE TTY KBD INTERRUPTS? 
+; BRANCH IF NOT 
;;RE-ENABLE TTY KBD INTERRUPTS 
+;RETURN 
+-ECHO CHAR 
+;CHAR < QO? 
;+BRANCH IF YES 
;;CHAR > 77? 
;; BRANCH IF YES 
++ STRIP-OFF ASCI 
+718 THIS THE FIRST CHAR 
>; BRANCH IF YES 
;+NO. SHIFT PRESENT 
3 CHAR OVER TO MAKE 
ry ROOM FOR NEW ONE. 
++KEEP COUNT OF CHAR 
+;SET IN NEW CHAR 
;:GET THE NEXT ONE 
+; TYPE ?<CR><LF> 
++ SIMULATE CONTROL-U 


js MERAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
; THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


DZR JAB. P11 06-SEP-77 Y INPUT ROUTINE 
trey 022016 000137 004660 85: Jnp STARTZ 
5502 
5503 022022 021627 000025 9S: CMP (SP), #25 
5504 022026 001005 NE 10$ 
5505 022030 104401 022551 TYPE - SCNTLU 
5506 022034 062706 000006 208 ADD #6, SP 
5507 022040 000737 BR 19$ 
5508 
5509 
5510 022042 021627 000015 10$ CMP (SP), #15 
5511 022046 001022 BNE 16% 
5512 022050 006766 000004 TST 4(SP) 
5513 022054 001403 BEQ 11% 
5514 022056 016677 000002 157054 MoV 2 (SP), aSHR 
5515 022064 062706 000006 1$ ADD #6. SP 
5516 022070 104401 001215 4§ TYPE , SCRLF 
5517 0220 123727 001135 000001 CMPB SINTAG. #1 
6518 022102 001003 BNE 15$ 
6519 022104 012777 000100 157032 MOV #100, dSTKS 
5520 022112 000002 155: RTI 
6521 022114 004737 020612 168: JSR PC, STYPEC 
5522 022120 021627 000060 CMP (SP), #60 
6523 022124 002420 BLT 18$ 
5524 022126 021627 000067 CMP (SP), #67 
6525 022132 003015 BGT 
5526 022134 042726 000U60 BIC #60. (SP)+ 
6527 022140 005766 000002 TST 2(SP) 
5528 022144 001403 BEQ 17% 
5529 022146 006316 ASL (SP) 
5530 022150 006316 ASL (SP 
6531 022152 006316 ASL (S$ 
6532 022154 005266 000002 17%: INC 2(SP) 
5533 022160 056616 177776 BIS ~2(SP), (SP) 
5534 022164 000667 BR 
6535 022166 104401 001214 18$: TYPE - SQUES 
6536 022172 000720 BR 0$ 
5537 .OSABL LSB 
5538 
5539 
5540 
5541 
5542 + *CALL: 
5543 re ROCHR 
5544 :* RETURN HERE 
5545 ix 
5546 ; 
5547 
5548 022174 011646 SROCHR: MOV (SP), -(SP) 
5549 022176 016666 000004 000002 MOV 4(SP), 2(SP) 
5550 022204 005066 000004 CLR 4 (SP) 
5551 022210 CLR - (SP) 
6552 022212 012746 022220 MOV #O4S, - (SP) 
5553 022216 RTI 
5554 022220 645: 
5555 022220 005737 021334 1$: TST STKCNT 


+;GET A CHARACTER FROM THE QUEUE 
++ CHARACTER IS ON THE STACK 
+-WITH PARITY BIT STRIPPED OFF 


‘PUSH DOWN THE PC AND 
ber READY FOR A CHARACTER 
PUT NEW PS ON STACK 

PUT NEW PC ON STACK 

: POP NEW PC AND PS 


+;WAILT ON A CHARACTER 


SEQ 0104 


MD-11-DZ2R JA-B he 4 op B MECHANICAL AND wa” Ag TEST 
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2 4 oe 
ce corer aes Ge kiko doa tee More eee 
+XTHIS ROUTINE WILL INPUT A STRING FROM THE T 


++ INPUT A STRING FROM THE TTY 
+;ADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
++ TERMINATOR WILL BE A BYTE OF ALL O'S 


8 9 
B pie 30(1046) 


STKCNT 
O@STKQOUT, 4(SP) 
STKQOUT POIN INTER 

STKQOUT, #STKQEND. ;2D1D IT GO OFF OF THE END? 


06-SEP-77 


16:22 PAGE 109 


++ DECREMENT bi wn 
++GET ONE CHAR 
TE THE 


CTER 


2$ ++ BRANCH IF NO 
#STKOSRT, STKQOUT i; RESET THE POINTER 


ROL IN 
RETURN HERE 


06-SEP-7 Y INPUT ROUTI 

022224 001775 BEQ 
022226 005337 021334 DEC 
022232 117766 177102 000004 MOVB 
022240 005237 021340 INC 
022244 023727 O2134G 021344 CMP 
022252 001003 BNE 
022254 012737 021342 021340 MOV 
022262 000002 RTI 

+ XCALL: 

;x 

;x 

+x 
022264 010346 SROLIN: MOV 
022266 005046 CLR 
022270 012703 022520 1$: MoV 
022274 022703 022544 23: CMP 
022300 101456 BLOS 
022302 104410 ROCHR 
022304 112613 MovB 
022306 122713 000177 10S: CMPB 
022312 001022 BNE 
022314 005716 TST 
022316 001007 BNE 

22320 112737 000134 022516 MOVB 
022326 104401 022516 TYPE 
022332 012716 177777 MOV 
022336 3 6S: DEC 
022340 020327 022520 CMP 
022344 103434 BLO 
022346 111337 022516 MOVB 
022352 104401 022516 TYPE 
022356 000746 BR 
022360 005716 5S: TST 
022362 001406 BEQ 
022364 112737 000134 022516 MOVB 
022372 104401 022516 TYPE 
022376 005016 CLR 
022400 122713 000025 7$: CMPB 
022404 001 BNE 
022406 104401 022551 TYPE 
022412 000726 BR 
022414 122713 000022 8$: CMPB 
224 001011 BNE 

022422 105013 CLRB 
022424 104401 001215 TYPE 
022430 104401 022520 TYPE 
022434 000717 BR 
022436 104401 001214 4S: TYPE 
022442 000712 BR 
022444 111337 022516 3S: MOVB 
022450 104401 022516 TYPE 
022454 122723 000015 CMPB 
022460 001305 BNE 


al 
- (SP) 
#STTYIN, RZ 


#STTYIN+20. ,R3 


4§ 


(SP) +, (R3) 
spree es 


9% 
#-1, (SP) 
R3 


y 
(R3),98 


(SP) 
#25, (R3) 


8$ 

- SCNTLU 
1$ 

#22, (R3) 
3$ 

(R3) 

- SCRLF 

- STTYIN 
2$ 

- SQUES 
1$ 

(R3), 98 
-9$ 

#15, (R3)+ 
2$ 


++SA 


VE RS 
++CLEAR THE RUBOUT KEY 


++-GET ADDRESS 
+;BUFFER FULL? 


;7-BR IF Y 


ES 
++GO READ ONE nen FROM THE TTY 


;;GET CHARACTE 
7718S tT A RUBOUT 


7;BR IF NO 
3348 +g THE FIRST RUBOUT? 


7-BR IF NO 
+; TYPE A BACK SLASH 


++SET THE RUBOUT KEY 
++BACKUP BY ONE 
++STACK EMPTY? 


77BR IF YES 
iy Ay TYPEOUT THE DELETED CHAR. 


oe 


+7GO READ ANOTHER CHAR. 
;+RUBOUT KEY SET? 


77BR IF NO 
7; TYPE A BACK SLASH 


+;CLEAR THE RUBOUT KEY 
+218 CHARACTER A CTRL U? 


+7BR IF NO 


+; TYPE A CONTROL "U" 
+2GO START OVER 

+7 1S CHARACTER A" R"? 
+-BRANCH IF NO 

+-CLEAR THE CHARACTER 
+c TYPE A “CR” & “LF” 

+2 TYPE THE INPUT STRING 


++G60 yy 4 ANOTHER CHACTER 


+7 TYPE A 


;;CLEAR THE BUFFER AND LOOP 


+7ECHO THE CHARACTER 


+;CHECK FOR RETURN 
+;LOOP IF NOT RETURN 


SEQ 0105 


-, 
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D2R JAB. 


022462 


022602 


022606 
022606 
022610 
022616 


022620 
022622 


022606 


104407 
032777 
001101 
000416 


013746 


001404 
013737 


177777 
001216 


000004 
022520 


005015 
006525 
005015 
051412 
000040 
042516 

000 


040000 


000004 
022646 
177060 
000004 


000004 


001103 
001115 
001000 
001110 


000002 
000004 


000 
000012 
000 
051127 


020127 


156322 


000004 


001103 


156236 
001106 


TTY INPUT ROUTINE 


CLRB -1(R3) +; CLEAR RETURN (THE 15) 
TYPE  SLF ++ TYPE A LINE FEED 
TST (SP )+ ++ CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 ++ RESTORE R3 
MOV (SP), -(SP) ++;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2¢SP) i FIRST ASCI! CHARACTER ON IT 
MOV ASTTYIN, 4(SP) 
RTI ++ RETURN 

9S: .BYTE O ++STORAGE FOR ASCII CHAR. TO TYPE 
.BYTE 0 ++ TERMINATOR 

STTYIN: .BLKB 2 ++RESERVE 20. BYTES FOR TTY INPUT 


0. 
SCNTLC: .ASCIZ 7 C/<15><12> ++CONTROL "“C 
SCNTLU: .ASCIZ / U/<15><12> ++CONTROL “U" 
SCNTLG: .ASCIZ / G/<15><12> +;CONTROL “G" 
SMSWR: .ASCIZ ¢15><12>/SWR = 7 


SMNEW: .ASCIZ 7 NEW = 

. EVEN 

.SBTTL SCOPE HANDLER ROUTINE 

3s RERAAAAAAAAARARAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
;XTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: O>) 


;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 
;XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


;*SW14=1 LOOP ON TEST 
+KSW11=1 INHIBIT ITERATIONS 
+ XSWO9=1 LOOP ON ERROR 
> *CALL 
® SCOPE +; SCOPE=10T 
SSCOPE: 
SHR ++TEST FOR CHANGE IN SOFT-SWR 

1S: BIT #B 1714. dSWR ++LOOP ON PRESENT TEST? 

BNE SOVER ++YES IF SWi4=1 
ZRRERASTART OF CODE FOR THE XOR TESTERS#&SS 
SXTSTR: BR 6$ ++ 1F RUNNING ON THE “XOR" TESTER CHANGE 


++ THIS INSTRUCTION TO A “NOP” (NOP=240) 
MoV OSERRVEC.-(SP) +; SAVE THE aap OF THE ERROR VECTOR 
MoV #55, QHERRVEC ++SET FOR TIMEOUT 


TST #177060 +7 TIME OUT ON XOR? 
MoV (SP)+,@#ERRVEC +; RESTORE THE ERROR VECTOR 
BR SSVLAD +7GO TO THE NEXT TEST 
5S: CMP (SP)+, (SP)+ +¢CLEAR THE STACK AFTER A TIME OUT 


MoV (SP )+, @#ERRVEC ++ RESTORE THE ERROR VECTOR 
BR 7$ LOOP ON hn PRESENT TEST 
a OF CODE FOR THE KOR TESTERSRRER 


SERFLG ++ HAS AN ERROR OCCURRED? 
BEQ 3$ +BR IF NO 
CMPB SERMAX, SERFLG 15 MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ 7>BR IF NO 
BIT #81TO9, dSWR i+ LOOP ON ERROR? 
BEQ 4§ BR IF NO 
7$: MoV SLPERR, SLPADR 73 SET LOOP ADDRESS TO LAST SCOPE 


SEQ 0106 


0 9 
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022712 
022714 


023036 


023040 


02 
023070 
023074 


06-SEP-77 


000443 
105037 
005037 


000001 


010046 
010146 
010246 
010346 
010446 
010546 
016646 
016646 
016646 
016646 
000002 


001103 
001204 


004000 
001100 


001104 
001204 


000001 
023036 
001102 
001106 
001110 
001206 
000001 
001102 
001106 


000022 
000022 
000022 
000022 


156204 


001104 


001104 
001204 


001115 
156112 


SCOPE HANDLER ROUTINE 


BR SOVER 
4$: CLRB SERFLG 
CLR STIMES 
BR 1$ 
34: BIT #681711, dSWR 
BNE 1$ 
TST SPASS 
BEQ 1$ 
INC SICNT 
CMP STIMES, SICNT 
BGE SOVER 
1$: MoV 


#1. S1CNT 
MOV SMXCNT, STIMES 
SSVLAD: INCB STSTNM 

MoV (SP), SLPAOR 

MOV (SP), SLPERR 

CLR SESCAPE 

MOVB #1, SERMAX 
SOVER: MOV STSTNM, DISPLAY 
MoV SLPADR, (SP) 


RTI 
SMXCNT: 1 


06-SEP-77 16:22 PAGE 111 
SEQ 0107 


++ ZERO THE ERROR FLAG 

++CLEAR THE NUMBER of ITERATIONS TO MAKE 
++ESCAPE TO THE NEXT TEST 

++ INHIBIT ITERATIONS? 


;7BR IF YES 
ig FIRST PASS OF PROGRAM 
INHIBIT A pag si 
; INCREMENT ITERATION COUN 
+ CHECK THE NUMBER OF TTERATIONS MADE 
37BR IF MORE ITERATION REQUIRED 
;;REINITIALIZE THE ITERATION COUNTER 
3;SET NUMBER OF ITERATIONS TO DO 
7; COUNT TEST NUMBERS 
3; SAVE SCOPE LOOP ADDRESS 
7; SAVE ERROR LOOP ADDRESS 
;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
>; ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
;;DISPLAY TEST NUMBER 
;;FUDGE RETURN ADDRESS 
;7FIXES PS 
;;MAX. NUMBER OF ITERATIONS 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
3 REXAAAAAAAAAKAA AAA AA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AAAS 


+ SAVE RO-RS 
+ *CALL: 


7x SAVREG 
; KUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


7X 
; KTOP--- (+16) 


7k 42---(+18) 
7K 44---R5 
7K 4+6---RY 
7% +8---R3 
;&+10---R2 
;%+12---R1 
7 %414---RO 


SSAVREG: 
MoV RO, -(SP) 
MoV Ri, -(SP) 
Mov R2,-(SP) 
MOV R3,- (SP) 
MOV R4,-(SP) 
MOV R5, - (SP) 
MoV 22(SP),-(SP) 
MoV 22(SP).-(SP) 
MoV 22(SP),-(SP) 
MoV 22(SP),- (SP) 


RTI 
; RESTORE RO-RS 
> XCALL: 
;k RESREG 


;;PUSH RO ON STECK 
7-PUSH R1 ON STACK 
++PUSH R2 ON STACK 
;,PUSH R3 ON STACK 
77PUSH R4Y ON STACK 
++PUSH RS ON STACK 

+; SAVE PS OF MAIN FLOW 
;;SAVE PC OF MAIN FLOW 
;;SAVE PS OF CALL 
>;SAVE PC OF CALL 


& 9 
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DZR JAB. P11 06-SEP-77 16: 20 SAVE AND RESTORE RO-RS ROUT'NES SEQ 0108 

5724 023076 SRESREG: 
5725 023076 012666 000022 MoV (SP)+, 22(SP° +;RESTORE PC OF CALL 
5726 023102 012666 000022 MOV (SP )+, 22(SP) +RESTORE PS OF CALL 
5727 023106 012666 000022 MOV (SP)+, 22(SP) 7+RESTORE PC OF MAIN FLOW 
5728 023112 012666 000022 MOV (SP)+, 22(SP) ;;RESTORE PS OF MAIN FLOW 
5729 023116 012605 MOV (SP)+,R5 +:POP STACK INTO RS 
5730 023120 012604 MOV (SP)+,R4 ;-POP STACK INTO R4 
5731 023122 012603 MoV (SP)+,R3 ;;POP STACK INTO R3 
5732 023124 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
5733 023126 012601 MOV (SP)+,R1 ;-POP STACK INTO R1 
5734 023130 012600 MoV (SP)+,RO ;;POP STACK INTO RO 
5735 023132 000002 RTI 
5736 
hil .SBTTL TRAP DECODER 
5739 3s RMEXKXAAAAAAAAAAAA AAA AAA KA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
5740 ; THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
5741 ;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
5742 ;XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
ne ;%*GO TO THAT ROUTINE. 

yu 
5745 023134 010046 STRAP: MOV RO, - (SP) 72 SAVE RO 
5746 023136 016600 000002 MoV 2(SP),RO ;;GET TRAP ADDRESS 
5747 023142 005740 TST -(RO) ;;BACKUP BY 2 
5748 023144 111000 MOvVB (RO),RO ;;GET RIGHT BYTE OF TRAP 
5749 023146 006300 ASL RO ;¢POSITION FOR INDEXING 
5750 023150 016000 023:70 MOV STRPAD(RO).RO ;; INDEX TO TABLE 
5751 023154 000200 RTS RO ;:GO TO ROUTINE 
5752 
5753 
thd 3; THIS 1S USE TO HANDLE THE “GETPRI" MACRO 
575 
5756 023156 011646 STRAP2: MOV (SP),-(SP) ;;MOVE THE PC DOWN 
5757 023160 016666 O00004 9000002 MoV 4(SP), 2(SP) ;;MOVE THE PSW DOWN 
thd 023166 000002 RTI ;;RESTORE THE PSW 
5759 
5760 .SBTTL TRAP TABLE 
5761 
5762 ;XTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
5763 ;*BY THE "TRAP" INSTRUCTION. 
5764 
5765 ; ROUT INE 
5766 5 wera enian 
5767 023170 023156 STRPAD: .WORD STRAPZ 
5768 023172 020442 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
5769 023174 020706 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
5770 023176 020662 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
5771 023200 020722 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$772 023202 021110 STYPOS ;;CALL=TYPOS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
5773 
5774 023204 021722 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
5775 
5776 023206 021632 SCKSWR ;;CALL=CKSUR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
$777 023210 022174 SROCHR ;; CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
5778 023212 022264 SROLIN ;;CALL=ROLIN TRAP +11(104411) TTY TYPEIN STRING ROUTINE 
6779 023214 023040 SSAVREG ;:;CALL=SAVREG TRAP+12(104412) SAVE RO-RS ROUTINE 





MD-11-DZ2RJA-B RPOY/5/6 A a+ aa te AND ag A gh TEST 
DZR JAB. P11 16: 20 TABLE 


hy 


023216 


023220 
023226 
023232 
023236 
023242 
023246 
023250 


023254 


023346 


06-SEP-77 


023076 


016637 


000000 


104412 


052703 
110320 


000002 
023250 
023254 


000005 
000002 


000000 


000002 
023434 
000002 


000012 
023364 
023366 


000060 


023250 


023352 


SRESREG ;; CALL=RESREG 


, 
MACY11 301046) 
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TRAP +13(104413) RESTORE RO-R5 ROUTINE 


.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


js MAERAAAAAAARALALARA LALA AA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
+&THIS ROUTINE WILL CONVERT A 16-B1T UNSIGNED BINARY NUMBER TO AN 


+XUNSIGNED DECIMAL ASCIZ NUMBER. 


_— 


3 
Pe 


$SB20: 


1$: 


MOV 
JSR 
RETURN 


NUMBER, - (SP) 
PC, 0#$S820 


2(SP),1$ 
#14, -(SP) 
PC. d#$0820 
#5, (SP) 

i ees 


Pp 
0.0 


:iPUT BINARY NUMBER ON THE STACK 
S: ADDRESS OF THE 1ST ASCIZ CHAR. 1S ON THE STACK 


++ SAVE BINARY NUMBER 
7+SET POINTER 

+;CALL DOUBLE LENGTH CONVERT 
+; ONLY ALLOW FIVE CHARACTERS 
+7PICKUP POINTER 

7+RETURN 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


js RAXRAAAAAAAAAAA AAA AAA AAA AAA AA AA AAA AAA AAA AAA AAA AAA AAAS AAA AAA TAS 
;XTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
++ = be ated NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 

+ XPOSITIVE. 


+ a 


4 
te 


$08 2D: 


1$: 
23: 


3. 


MOV 
JSR 
RETURN 


SAVREG 
MOV 


#PNTR, -(SP) 
PC, d#$0B2D 


2(SP),R2 
#SDECVL.RO 
RO, 2(SP) 
(R2)+,R1 
(R2)+,R2 
#10. .4S 
SSTNPWR, RY 
#STNPWR+2Z,R5 


R3 

(RY), R1 
R2 
(R5),R2 
3$ 

R3 

23 
(R4Y)+,R1 
R2 
(R4)+,R2 
era e, Gah 


#'0,.R3 
R3, (RO) + 


+;POINTER TO LOW WORD OF BINARY NUMBER 


++ THE FIRST ADDRESS OF ASCIZ 
+7!S ON THE STACK 


+,SAVE REGISTERS 

++PICKUP THE DATA POINTER 

+4GET ADDRESS OF “SDECVL" STRING 

++PUT ADDRESS OF ASCIZ STRING ON STACK 
+;PICKUP THE BINARY NUMBER 


+,SET UP TO DO 10 CONVERSIONS 
+-ADDRESS OF TEN POWER 


;-CLEAR PARTIAL 

;;SUBTRACT TEN POWER 

77BR IF TEN POWER TO LARGE 
;:ADD 1 TO PARTIAL 

>; LOOP 

77RESTORE SUBTRACTED VALUE 
;;MOVE TO NEXT TEN POWER 


;; CHANGE PARTIAL TO ASCII 
+;SAVE IT 


SEQ 0109 


MO-11-DZR JA-B ante lt AND READ/WRITE TEST 


DZR JAB. P11 


023350 


023434 


023450 
023452 
023456 


06-SEP-7 


005327 


000014 


010046 
016600 


012616 
000207 


000004 


000060 


023500 


G 9 
MACY11 30(1046) 
DOUBLE LENGTH BINARY TO DECIMAL 


DEC (PC)+ 
4§: .WORD O 

BN 1$ 
(RO)+ 


PC 
STNPWR: 


SDECVL: .BLKB 12. 


06-SEP-77 16:22 PAGE 114 
ASCI1 CONVERT ROUTINE 


++ DONE? 

+7 BR “4 unten 
++ TERM 
RESTORE TREGISTERS 
++ RETURN 
+71. OEO9 
+71. OE08 
+31. OE07 
+71. OE06 
+71. OEOS 
+71. OEO4 
+21. 0€03 
+21. OE02 
7-1. OE01 
;+1. 0€00 


;RESERVE STORAGE FOR ASCIZ STRING 


.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


jj MEXAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAAS 
;XTHIS ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


;XLEADING NUMBERS. 


> KCALL 
;x MOV #NUMAOR, - (SP) 
eS JSR PC, d#SSUPRS 
SSUPRS: MOV RO. -(SP) 
MoV 4(SP),RO 
18: TSTB (RO) 
BEQ 2$ 
CMPB #'O. (RO)+ 
BEQ 1$ 
2$: DEC RO 
MOV RO, 3% 
TYPE 
3$: .WORD O 
MOV (SP)+,RO0 
MoV (SP)+, (SP) 
RTS PC 


.SBTTL RANDOM NUMBER GENERATOR 


+;FIRST ADDRESS OF ASCIZ STRING 


+; SAVE RO 

;;PICKUP THE POINTER 

+; TERMINATEOR? 

;7BR IF YES 

7718S THIS AN ASCII "O" ? 
5 YES 


UP BY "1" 

ay or TYP ING 

>;GO TYPE 

72 ASCIZ ~~ GOES HERE 
+-RESTOPE RO 

;-RESTORE THE STACK 

7; RETURN 


ROUTINE 


jj AARAAAAAAAAA AA AAA AA AAA AAA AAA AA AAA AAA AA AA AAA AAA AAA AAAS EES 
;KTHIS ROUTINE 1S A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


SEQ 0110 
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06-SEP-77 16: 20 


DZR JAB. Pit 


5899 023510 


5923 023610 


010046 


123456 


023610 
023606 
177771 


023610 


023606 
001057 


047401 
023610 
027606 


RANDOM NUMBER GENERATOR ROUTINE 
; WITH A RANGE OF O TO 2(+433)-1. 
; ¥CALL: 


, 


oe | JSR PC, SRAND 
>x RETURN 

Pe | 

;x 

SRAND 


MOV RO, - (SP) 


MoV 8-7, 
1$ ASL 
ROL Ri 
INC R2 
BNE 1$ 
ADD SLONUNM. RO 
ADC R1 


ADD SHINUM, R1 
ADD #1057,R0 
ADC Ri 

ADD #47401, R1 
MOV RO. SLONUM 
MoV Ri, SHINUM 
MOV (SP)+,R2 


Mov (SP)+,R1 
MoV (SP)+,R0 
RTS PC 


SHINUM: .WORD 176543 
SLONUM: .WORD 123456 


.SBTTL INTEGER DIVIDE ROUTINE 


7;CALL THE ROUTINE 
>;RETURN HERE THE RANDOM 
;;NUMBER WILL BE IN 

++ SHINUM, SLONUM 


;7PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;+PUSH R2 ON STACK 

;;SET RO WITH LOW 

+7SET R1 WITH HIGH 

++SET SHIFT COUNT 

++SHIFT RO LEFT AND 
;;ROTATE CARRY INTO R1 AND 
++ CHECK FOR DONE 

>; CONTINUE SHIFT LOOP 
;+ADD NUMBER TO MAKE X 129 
+2PROPOGATE CARRY 

;;ADD NUMBER TO MAKE X 129 
77ADD LOW CONSTANT 
;+PROPOGATE CARRY 

;;ADD HIGH CONSTANT 

7+SAVE RO 

>; SAVE R1 

;;POP STACK INTO R2 

;;POP STACK INTO R1 

>;POP STACK INTO RO 

+; RETURN 


ji MEXAAAAAAAAAAAAAAA AAA AAA AA AAA AAA AA AAA AAA AAA AAT AAA AAAS 
;ATHIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 
;¥DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 

;*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 


sXDIVISION WILL BE PERFORMED SO 
;*SAVE SIGN AS THE DIVIDEND. 


THAT THE REMAINDER IS OF THE 


> XCALL: 

;* MoV LOW DIVIDEND, -(SP) :; THE HIGH DIVIDEND MUST BE < 172 
;x MoV HIGH DIVIDEND. -(SP):; AS LARGE AS THE DIVISOR 

;x MOV DIVISOR, -(SP) 

+x JSR PC, SDIV 

;x RETURN >; QUOTIENT & REMAINDER ARE ON THE STACK 
;x "y"=0 IMPLIES NO ERROR 

28 “y"s1 IMPLIES ERROR OCCURRED 

;x "C"=0 DIVIDE OVERFLOW CCCURRED 

;x “—“en ATTEMPTED TO DIVIDE BY ZERO 

;* 

;x 

;x STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

:8 #} 4 j«wesss,. weseesses =o js#esses= £+j.| = = #§;‘ssesesesdsesses 

;x TOP REMAINDER ALL ZEROS ALL ONES 


SEQ O111 


MO-11-DZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 


DZ2R JAB. P11 


023612 


024020 


104400 
042716 


012601 


06-SEP-77 16: 20 


000017 


000021 
000024 
000022 


000003 


000020 


000003 
177777 


000002 


000002 


000001 


000020 
000016 


000014 


000014 


BR, 
MACY11 30(1046) 


INTEGER DIVIDE ROUTINE 


eS 


$DIV: 


1$: 


23: 


35: 
4S: 


5S: 


6S: 


7%: 
8S: 


9S: 


108: 


+2 


QUOTIENT 


P) 
1 
0 


#17. 27S 
24(SP),R 
22(SP).R 
1$ 

3(SP) 

RO 

Ri 

RO 
20(SP),R2 
2$ 


3$ 
#3, 14 (SP) 
#-1,R0 


2(SP) 


Ri, 20(SP) 
RO. 16(SP) 
(SP)+,R3 
(SP )+,R2 
(SP)+,R1 


06-SEP-77 16:22 PAGE 116 


ALL ZEROS ALL ONES 


+;PUSH OLD PSW AND PC ON STACK 
33 IP AWAY CONDITION CODES 
+; PUSH RO ON STACK 

;7PUSH R1 ON STACK 

+7PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;SAVE A PLACE FOR SIGNS 
;;SETUP THE ITERATION COUNTER 
;¢PICKUP THE DIVIDEND 


>; CHECK THE SIGN 

;;KEEP TRACK OF THE SIGN 
+; AND NEGATE THE ORIGINAL 
>; NUMBER 


;;PICKUP THE DIVISOR 
++CHECK THE SIGN 
++ DIVISOR OF oO Js A NO-NO 


. eygee 
’ 


E 
SET RENAINOER TO ALL ONES 
+;KEEP TRACK OF DIVISORS SIGN 


;+NEGATE THE ORIGINAL NUMBER 
+;CLEAR “C" 

+. START FORMING QUOTIENT 
;2POSITION MSB'S 

7+ COPY 

>; COMPARE DIVIDEND & DIVISOR 

+7BR IF DIVIDEND > DIVISOR 
;7REMAINDER AFTER THIS LOOP 
ir BIT ENTERS HERE 

77BR IF NO 

+; OVERFLOW? 

>7BR IF NO 

7;SET “V" IN RETURN STATUS WORD 
;7SET REMAINDER TO ALL ZEROS 
+2COPY REMAINDER INTO QUOTIENT 
+2CLEAR COUNTER FROM STACK 
;;REMAINDER SIGN CORRECTION NEEDED? 
7-BR IF NO 

7;NEGATE REMAINDER 

+;CLEAR SIGN 

;;BUT DON'T FORGET QUOTIENT 

ho gt et SIGN CORRECTION NEEDED? 
;;NEGATE QUOTIENT 

+-RETURN QUOTIENT AND 

>;REMAINDER TO USER 

;:POP STACK INTO R3 

7:POP STACK INTO R2 

;;POP STACK INTO Ri 


SEQ 0112 
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024022 
024024 
024030 


024032 
024036 
024044 
024050 
024054 
024060 
024062 
024064 
024072 


024074 


024164 


012600 
012666 
000002 


005037 
012737 
005037 
005777 
005237 
000401 
022626 
012737 
000207 


010146 
012701 
011146 
005011 


06-SEP-77 16: 20 


000002 


001230 
024062 
000006 
155344 
001230 


000006 


000006 


024140 
001244 
155254 
000001 
024242 


024166 
155240 
177777 
024304 


000004 


000004 


001244 


001244 


INTEGER DIVIDE ROUTINE 


MoV (SP)+,R0 ;;POP STACK INTO RO 
MoV (SP), 2(SP) ;; SETUP TO RETURN CONDITION CODES 
RTI ++RETURN 


.SBTTL kX PROGRAM SUBROUTINES £22 


+SET “LPTAVL” TO THE PROPER STATE. 
+ LPTAVL = O IF NO LINE PRINTER AVAILABLE 
+ LPTAVL = 1 IF LINE PRINTER 1S AVAILABLE 


+> CALL 
; PC, d@LP. AVL 


, 


JSR 
; RETURN 


LP. AVL: CLR O#LPTAVL + START WITH NO PRINTER AVAIABLE 


MoV #19, DRERRVEC +SETUP THE TIMEOUT VECTOR 
CLR OFERRVEC+2 
TST aLPSs + 1S THERE A LINE PRINTER? 
- ~~ + YES--SET AVAILABLE SWITCH 
1$: CMP (SP)+, (SP)+ ;NO--POP STACK 
2s: MoV MERRVEC+2Z, DHERRVEC ; RESTORE TIMEOUT VECTOR 
RTS PC ; RETURN 


; THIS ROUTINE WILL DETERMINE IF THERE 1S A CLOCK ON THE SYSTEM 
;AND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 
;"CLKSTA" WILL INDICATE THE CLOCK TYPE 

+ O= NO CLOCK 

;+1= KW11-P 

771s KWII-L 

; THIS ROUTINE WILL ALSO SETUP "“TICKMS” (TIME 

;PER CLOCK TICK IN MILLISECONDS) AND “TICKUS” 

> (TIME + CLOCK TICK IN MICROSECONDS) AS 


; JSR PC, d#ST. CLK 
; RETURN 
ST. CLK: MOV R1,-(SP) + SAVE R1 
MoV RERRVEC+2,R1 ;SAVE AND SETUP TIMEOUT VECTOR 
MOV (R1),-(SP) 
CLR (R1) +LEVEL O 
MoV ~(R1),-CSP) 
MOV #15. (R1) *GO TO 18 ON TIMEOUT 
CLR CLKSTA +SET CLOCK STATUS TO NO CLOCK 
TST aPKcs 71S THERE A KW11-P? 
MoV #1. CLKSTA + YES--SET STATUS TO KW11-P 
JSR PC. ST. PCLK +START THE KW11-P 
BR 3$ +GO TO EAIT 
1$: CMP (SP)+, (SP)+ +CLEAN UP THE STACK 
MOV #25, (R1) + 1F TIMEOUT GO TO 2$ 
TST aLKs + 1S THERE A KWi1-L? 
MoV #-1,CLKSTA +YES-- SET STATUS TO KW11-L 
JSR PC. ST. LCLK +START THE KW11-L 
BR 3$ sEXIT 


SEQ 0113 


28 


024224 
024232 
024240 
024242 
024242 
024250 
024252 
024260 
024266 
024274 


024302 


024304 
024304 
024312 
024314 
024322 
024330 
024336 


024340 
024344 
024350 


024416 
024422 


022626 


032737 
001014 
012777 
012777 
012777 
012777 


000207 


032737 
001011 
012777 
012777 
012777 
000207 


013746 
004737 
000002 


012700 
012701 


16: 2 


000100 


000020 
047040 


000015 
040432 


000040 


024340 
000300 
000001 
000115 


000040 


024 340 
000300 
000100 


001246 
040734 


176777 
000001 
001664 
002330 


003504 
003104 


001220 


001246 
001250 


001246 
001250 


001220 


155114 
155110 
155106 
155076 


001220 


155064 
155060 
155054 


001234 
001236 


A-B RPOY/5/6 MECHANICAL AND wag ty bb TEST 
06-SEP-77 0 
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XX PROGRAM SUBROUTINES &2% 


23: 
3$: 


4$: 
55: 


ST. PCLK: 


1S: 


ST. LCLK: 


1$: 
SRVCLK: 


; THIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM IS 
; STARTED OR WHEN THE VALUE OF BITOO IN 'C. SWR' IS CHANGED. 


> CALL 


‘ 


LODFLT: 


1$: 


(SP )+, (SP)+ +CLEAN UP _ THE STACK 


(SP), (R1)+ 


(SP)+,R1 sRESTORE Ri 
#SWO6, 2#C. SWR ;50HZ OR 60HZ2? 
4§ +BRANCH IF 60 
#20, deTICKNS +SETUP TIME PER 
#20000... d8TICKUS ; TICK FOR 5OHZ 


5$ 

#16, d#TICKNS +SETUP TIME PER 
#16666. ,d#TICKUS > TICK FOR 60HZ 
PC ; RETURN 


’ 


years. aes ;ALLOW SOFTWARE TIMEOUTS? 


+NO--BRANCH 
#SRVCLK, OPKV + SETUP THE KW11-P VECTOR 
#300, dPKV+2 
#1, OPKB + COUNT ONE TICK 
#115, aPKCS ;"INT. EN. "COUNT DOWN", “MODE 1 (REPEAT)", 


"LINE FREQ". AND “RUN” 
PC + RETURN 


#SWOS.ad8C.SWR ;ALLOW SOFTWARE TIMEOUTS? 
1$ +NO--BRANCH 

#SRVCLK, OLKY +SETUP THE KWii-L VECTOR 
#300, @LKV+2 

#100, @LKS +START THE KW11-L 

PC TURN 


‘ 


OSTICKMNS,-(SP) ;TIME PER TICK IN MILLISECONDS 


PC, #RPTMR +COUNT THE ELASPED TIME 
RETURN AFTER INTERRUPT 


PC. LODFLT 

RO, -(SP) +;PUSH RO ON STACK 
Ri, -(SP) ++PUSH R1 ON STACK 
R2,-(SP) ++PUSH R2 ON STACK 
R3.-(SP) ++PUSH R3 ON STACK 


#176777, TSTNMS ;SELECT TESTS 0-10. 12-17 
#1, TSTNMS+2 


#PRNO.R1 ; TABLE POINTER 
R1,R2 + STOP ADDRESS 
(RO)+, (R1ID+ 


RO.R2 RUN TIME TABLES %% DONE? 
1$ ;NO--BRANCH 

#PATS. RO PATO DEFAULTS TO PATTERN 8 
#PATO.R1 


sRESTORE THE TIMEOUT VECTOR 


+SET SELECT BIT FOR TEST 20 
#OFLT.RO ;DEFAULT PARAMETERS POINTER 


*MOVE DEFAULT PARAMETERS INTO 


SEQ 0114 
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DZR JAB. P11 06-SEP-77 16: 20 2% PROGRAM SUBROUTINES ¥2% SEQ 0115 
6116 024426 012021 2s: MOV (RO)+, (RID+ 
6117 024430 020027 003544 CMP RO. #PATO 
6118 O24434 103774 BLO 2$ 
6119 024436 032737 000001 001220 BIT #81T00.C. SWR +16 AM MODE ? 
6120 024444 001012 BNE 3$ 7 BR 18 
6121 O24446 012737 000025 001630 MOV #21. , PRALNT+22 iSeT. eg: LIMIT TO 21. 
6122 024454 012737 000025 001632 MOV #21.,PRMLMNT+24 ;SET ‘LS’ LIMIT TO 21. 
6123 024462 012737 165000 001352 MOV #-<256. £22. >, TRCKWC ; WORD COUNT FOR A 16 BIT TRACK 
6124 024470 000411 BR 4§ + CONT I NUE 
6125 024472 012737 000023 001630 3%: MOV #19. PRMLMT+22 {SET 'FS' LIMIT TO 19. 
6126 024500 012737 000023 001632 Mov #19.,PRMLMT+24 ;SET ‘LS’ LIMIT TO 19. 
6127 024506 012737 166000 001352 MOV #-<256. £20. >, TRCKWC ;WORD COUNT FOR COUNT FOR AN 18 BIT TRACK 
6128 024514 012701 001536 4$: MOV #PRMPT,R1 ADDRESS OF ety ad ae POINTER TABLE 
6129 024520 005711 5S: TST (R1) END r THE TABLE ? 
6130 024522 001425 BEQ 8$ +BR IF END 
6131 024524 032731 002000 BIT #B1T10, d(R1)+ "ts" pie ? 
6132 024530 001773 BEQ 5$ +BR IF NO 
6133 024532 016102 177776 MOV -2(R1),R2 ; PARAMETER TABLE ADDRESS 
6134 024536 011246 MOV (R2),-(SP) PARAMETER ALLOCATION BITS 
6135 024540 012703 000013 MOV #11. .R3 +NUMBER OF PARAMETERS (MAXIMUM) BEFORE ‘LS' 
6136 024544 006216 63: ASR (SP) + COUNT THE PARAMETER 
6137 024546 103002 BCC 7$ BR IF NOT USED 
6138 024550 062702 000002 ADD #2,R2 + INCREMENT THE PARAMETER TABLE ADDRESS 
6139 024554 005303 7$: DEC R3 COUNT THE PARAMETER 
6140 024556 001372 BNE 6$ BR IF NOT THERE YET 
6141 024560 005726 TST (SP )+ CORRECT THE STACK POINTER 
6142 024562 021237 00130 CMP (R2),PRMLMNT+22 ; 1S ‘'LS' TOO LARGE FOR THE MODE SELECTED ? 
6143 024566 101754 BLOS 5$ BR IF NOT 
6144 024570 013712 001630 MoV PRMLMT+22,(R2) ;RESET VALUE FOR MODE USED 
6145 024574 000751 BR 5$ + CONTINUE 
6146 024576 8$: 
6147 024576 012603 MOV (SP)+,R3 +;POP STACK INTO R3 
6148 024600 012602 MOV (SP)+,R2 +;POP STACK INTO R2 
6149 024602 012601 MOV (SP)+,R1 +2POP STACK INTO R1 
6150 024604 012600 MoV (SP)+,R0 +;POP STACK INTO RO 
Pees 024606 000207 RTS PC + RETURN 
61 
6153 feng ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
6154 + CALL 
6155 ; MOV #TESTNUM. STSTNM ;LOAD THE TEST NUMBER 
6156 ; JSR PC, LODPRM 
6157 ; RETURN 
6158 
6159 024610 LODPRM: 
6160 024610 010146 MOV R1,-(SP) +PUSH R1 ON STACK 
6161 024612 010246 MoV R2.-(SP) ++PUSH R2 ON STACK 
6162 024614 010346 Mov R3.-(SP) ++PUSH R3 ON STACK 
6163 024616 010446 MoV R4, - (SP) ++ PUSH - ON STACK 
6164 024620 005004 CLR R4 CLEAR PR 
6165 024622 113704 001102 MOVB STSTNM. RY +GET THE TEST NUMBER 
6166 024626 006304 ASL R4 SETUP TO ADDRESS WORDS 
6167 024630 016401 001536 MOV PRMPTCR4),R1 *+GET THE TEST'S PARAMETER TABLE ADDRESS 
6168 024634 012702 001504 MOV #PRM.RZ PARAMETER EXECUTION TABLE 
6169 024640 005003 CLR R3 *+R3 1S USED AS A COUNTER 
6170 024642 013704 001254 MOV CHKORV, R4 ;DRIVE'S ADDRESS 


6171 O24646 012122 MoV (R1)+, (RZ2)+ ;PARAMETER SPECIFIER 


MO-11-DZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
DZR JAB. P11 16: 20 


06-SEP-77 1 


024764 


025022 
025030 


025032 
025036 
025042 


162702 
000736 


012604 
012603 
012602 
012601 
000207 


032737 
001007 


005037 
004037 
004104 


001504 


000014 
000003 
000004 


000002 
001504 


000002 
001504 


000002 


000004 


000200 


000173 
000173 


000105 
000105 


001206 
035302 


034376 


001220 


004126 
004146 


004126 
004146 
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2% PROGRAM SUBROUTINES *2% 


1$: ASR 


23: CLR 
35: INC 


4$: ASR 


55: SUB 
6: . 


PRM 

23 

(R14, (RZ2)+ 
3$ 

(R2)+ 

R3 

R3, #12. 

6$ 
R3,83 
1$ 


BR IF NOT 
#81 T02, ORVTYP(RY) /RPO ? 
5 7BR IF 


(SP)+,R4 
(SP)+,R3 
(SP )+,R2 
(SP)+,R1 
PC 


06-SEP-77 16:22 PAGE 120 


+ THIS PARAMETER USED IN THE TEST ? 
+BR IF _NOT 

;LOAD THE VALUE 
+ CONT INUE 


CLEAR THE UNUSED PARAMETER LOCATION 
+COUNT THE qPOSiTion IN THE OUTPUT TABLE 
+FINISHED ? 

+BR IF YES 

+DOING THE CYLINDER ADDRESSES 7? 


iT 1S 
; COUNT THE Ceerten” PARAMETERS (FC' & LC") 


7B NOT USED 
;MOVE THE INPUT POINTER 
;COUNT THE PARAMETER 

7BR IF LC’ NOT USED 

;MOVE THE INPUT PINTER 
;KEEP GOING 

; KEEP GOING 

;BACKUP THE OUTPUT POINTER 
+ KEEP GOING 


;;POP STACK INTO R4Y 
;;POP STACK INTO R3 
7;POP STACK INTO R2 
;;POP STACK INTO Ri 
; RETURN 


; THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 


+ INTO DPB. B+2 AND DPB. C+2, 


>BITO?. 

> CALL 

; JSR 

; RETURN 

LOCMD: BIT 
BNE 
MoV 
MoV 
BR 

15: MoV 
MoV 

23: RTS 


PC, d#LDCMD 


#SWO7, aC. SHR 
1$ 


DEPENDING ON THE STATE OF “CONTROL SWITCH" 


*D0 EXPLICIT SEEKS? 
YES--BRANCH 


#READHD. d¢0PB. B+2 +NO--SET UP FOR READ HEADER AND 
sane. SSP. C+2 ;DATA COMMAND 


#SEEK, d#0PB. B+2 
Eyeeh, SOSH. £96 


+SETUP FOR SEEK COMMAND 


; THIS ROUTINE WILt CALL THE RPO4Y/5/76 DRIVER AND THEN WAIT ON THE FUNCTION 
IF AN ERROR OCCURS IT 1S REPORTED. 


+TO COMPLETE. 
> CALL 


; JSR 

: RETURN 

CALL. A: CLR 
JSR 
DPB. A 


RO. aéCA 


OtSESCAPE 
RO. d#RPOY 


FILL “OPB" WITH 2 yeaene INF ORMAT 1 ON 


+NO ESCAPE ADDRESS 
+CALL RPOW DRIVER 


SEQ 0116 
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025142 


025144 


06-SEP-77 


004122 


025132 


026245 


004122 
026206 


001206 
035302 


004142 


025262 


026246 


004220 
177677 
004142 
026206 
004126 


001206 


001206 


000173 


2% PROGRAM SUBROUTINES % 


BR CALL. A 
1$: TST ot0PB. A+16 + DONE? 
BEQ 1$ +NO--LOOP 
BPL 3$ +BRANCH IF NO ERROR 


MOV #2%, SESCAPE ;ZESCAPE TO 2% ON ERROR 

MOV Ot0PB. A+12, 9CYL. OS ; CYLINDER 

MOVB Ot0PB. A+11, d#TRK. DS ; TRACK 

MOVB OtOPB. A+10, #SEC. OS + SECTOR 

MOV #OPB. A+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC, @#ER INDX +FORM DISPATCH INDEX 


AOD (SP) +, PC REPORT PROPER ERROR 

ERROR 41 ; 

ERROR 42 + PARITY ERROR 

ERROR 43 ; UNSAFE ERROR 

ERROR 44 +NON-170 ERROR 

ERROR 45 +170 ERROR 
25: Mov DPB. A+16,-(SP) ;STATUS WORD 

JSR PC, LOP. CK +SEE IF LOOP, ABORT. OR CONTINUE 
35: RTS RO ; RETURN 


; THIS ROUTINE 1S THE SAME AS “CALL. A” EXCEPT FOR THE DPB USED AND IF 
; THE COMMAND 1S A READ HEADER AND DATA THE HEADER (CYLINDER. TRACK. 
;AND SECTOR) READ 1S CHECKED FOR VALIDITY 


; FILL OPB 

; JSR RO. d#CALL. B 

; RETURN 

CALL B: CLR O#SESCAPE +NO ESCAPE ADDRESS 
JSR RO. d#RPOY +CALL RPOY DRIVER 
DPB. B 
BR CALL. B 

1$: TST DPB. B+16 ; DONE? 
BEQ 1$ + NO--BRANCH 
BPL 4§ +BRANCH IF NO ERROR 


Mov #35, SESCAPE ++ESCAPE TO 3$ ON ERROR 

MoV @#0PB. B+12. d#CYL. OS > CYLINDER 

MOvVB O@tDPB. B+11. O#TRK. DS + TRACK 

Nove Ot0PB. B+10. a#SEC. DS + SECTOR 

MoV #O0PB. B+16.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC. O#ER INDX +FORM DISPATCH INDEX 


ADD (SP) +, PC REPORT PROPER ERROR 
ERROR 41 ; 
ERROR 42 PARITY ERROR 
ERROR 43 ; UNSAFE ERROR 
ERROR 44 +NON-170 ERROR 
TST RP. REG+RPER1 DRIVE ERROR ? 
BEQ ‘BR IF NOT 
BIT a C100. RP. REG+RPERI +SEE IF ONLY ‘HCE’ SET 
BEQ 4$ ;BR IF IT IS 
25. ERROR 45 +120 ERROR 
38: MoV OPB.B+16.-(SP) -;STATUS WORD 
JSR PC. LOP. CK +SEE IF LOOP. ABORT. OR CONTINUE 
BR 5% CHECK FOR STALL 
4$: CMPB ot0PB. B+2, #READHD ;DOING IMPLIED SEEKS? 
BNE 5$ | NO--BRANCH 


SEQ 0117 
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06-SEP-77 16: 20 XXX PROGRAM SUBROUTINES &%% SEQ 0118 
6284 025304 004037 026526 JSR RO. OEVERIFY + YES--GO CHECK THE DATA 
6285 025310 004134 DPB. +10 
6286 025312 000407 BR 6$ + ERROR _DUR ING VERIFY 
6287 025314 032737 O40000 001220 5%: BIT #SW14, DAC. SHR ; STALL? 
6288 025322 001403 BEQ 6$ ; NO--BRANCH 
6289 025324 004037 026364 JSR RO. d#STALL ; YES-=CALL STALL ROUTINE 
6290 025330 001354 .WORD STALL1 +STALL TIME POINTER 
724} 025332 000200 65: RTS RO + RETURN 
6293 + THIS ROUTINE IS THE SAME AS “CALL. B” EXCEPT FOR THE DPB USED 
6294 + CALL 
6295 ; FILL OPB 
6296 ; JSR RO, @#CALL. C 
yee ; RETURN 
6299 025334 005037 001206 CALL. C: CLR O#SESCAPE +NO ESCAPE ADDRESS 
6300 025340 004037 035302 JSR RO, d#RPOY CALL RPOY DRIVER 
6301 025344 004144 DPB. C 
6302 025346 000772 BR CALL. C 
6303 025350 005737 004162 1S: TST O#0PB. C+16 + DONE? 
6304 025354 001775 BEQ 1$ +NO--LOOP 
6305 025356 100042 BPL 4§ + YES--BRANCH IF NO ERROR 
6306 025360 012737 025452 001206 MOV #3%, SESCAPE ++ESCAPE TO 3% ON ERROR 
6307 025366 013737 004156 001270 MOV O#0PB. C+12. d#CYL. OS ;- CYLINDER 
6308 025374 113737 004155 001274 MOVB O#0PB. C+11, d8TRK. DS +; TRACK 
6309 025402 113737 004154 001272 MOVB O#DPB. C+10, A#SEC. OS ; SECTOR 
6310 025410 012746 004162 Mov #OPB. C+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
6311 025414 004737 026246 JSR PC, d#ER INDX FORM DISPATCH INDEX 
6312 025420 062607 ADD (SP)+, PC REPORT PROPER cRROR 
6313 025422 104041 ERROR 41 ; 
6314 025424 104042 ERROR 42 ;PARITY ERROR 
6315 025426 104043 ERROR 43 + UNSAFE ERROR 
6316 025430 104044 ERROR 44 ;NON-170 ERROR 
6317 025432 005737 004220 TST RP. REG+RPER1 sORIVE ERROR ? 
6318 025436 001404 BEQ 2$ BR IF NOT 
6319 025440 032737 177677 004220 BIT # C100.RP.REG+RPER1 ;SEE IF ONLY ‘HCE’ SET 
6320 025446 001406 BEQ 4$ -BR IF IT IS 
6321 025450 104045 2$: ERROR 45 +170 ERROR 
6322 025452 013746 004162 35: MoV DPB. C+16,-(SP) ;STATUS WORD 
6323 025456 004737 026206 JSR PC. LOP. CK +SEE IF LOOP, ABORT. OR CONTINUE 
6324 025462 000410 BR 5$ 
6325 025464 123727 004146 000173 4S: CMPB a#0PB8.C+2,#READHD ; DOING IMPLIED SEEK? 
6326 025472 001004 BNE 5$ +NO--EXIT 
6327 025474 004037 026526 JSR RO. OEVERIFY + YES--CHECK THE DATA 
6328 025500 004154 DPB. C+10 
6329 025502 000407 BR 6$ ERROR DURING VERIFY 
6330 025504 032737 O40000 001220 5%: BIT #5W14,08C.SWR ;STALL? 
6331 025512 001403 BEQ 6$ +NO--BRANCH 
6332 025514 004037 026364 JSR RO, d#STALL + YES--CALL STALL ROUTINE 
6333 025520 001354 .WORD STALLI *STALL TIME POINTER 
6334 025522 000200 6S: RTS RO 
6335 
6336 
6337 ; THIS ROUTINE 1S THE SAME AS “CALL. A” EXCEPT FOR THE DPB USED AND 
6338 ON AN ERROR LOCATION "ERR. CT" IS EXAMINED. IF ERR. CT IS EQUAL TO 


6339 ;GERFLG EXIT 1S TO THE NEXT TEST. 
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025524 
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005037 


001206 
001334 
035302 


004202 


026166 


025634 
004176 
004175 
004174 
004202 
026246 


000020 


004202 
026206 
000151 


040000 
000020 


000161 
001206 
035302 


004202 


026142 
004176 
004175 
004174 
004202 
026246 


001206 
001270 
001274 
001272 


001102 


004166 
004214 
153236 
004166 


001206 
001270 
001274 
001272 
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2% PROGRAM SUBROUTINES x22 


> CALL 


. 
’ 


DRVCAL: 


ORVCL1: 


1$: 


23: 


35: 


FILL OPB 
JSR 


RETURN 


RO, A#ORVCAL 

OtSESCAPE +NO ESCAPE ADDRESS 

@tWCEFLG CLEAR WRITE CHECK ERROR FLAG 
RO, d#RPOY CALL RPOY DRIVER 

DRVCAL 

atD0TAOPB+16 + DONE 

DRVCL1 + NO--LOOP 

1$ 7BR IF ERRORS 

10$ NO ERRORS 


#2$.SESCAPE . ;;ESCAPE TO 2$ ON ERROR 
@tOTADPB+12Z, a#CYL. OS ; CYLINDER 

@#OTADPB+11, 0#TRK. OS + TRACK 

O#DTADPB+10, d#SEC. OS ; SECTOR 

#OTADPB+16. -(SP) ;STATUS/ERROR INDICATOR ADDRESS 
PC, a#ER INDX FORM DISPATCH INDEX 


++ etc REPORT PROPER ERROR 

42 PARITY ERROR 

43 > UNSAFE ERROR 

44 +NON-170 ERROR 

45 +170 ERROR 

#20, d#STSTNM + TEST 207 

8$ ; NO--BRANCH 

DTADPB+16,-(SP) ;STATUS WORD 

PC. LOP. CK +SEE IF LOOP, ABORT. OR CONTINUE 

#WRCKD, ADTADPB+2 ; DOING A WRITE CHECK? 
12$ ; NO--BRANCH 

agiTay, OERP. REG+10 ;1S “WCE"=17? 

12% ; NO--BRANCH 

#SWO4, ASWR ; INHIBIT WRITES? 

12% YES--BRANCH 

tuR ITE. aeDTADPB+2 ; ; SETUP FOR A WRITE 

d#SESCAPE ;NO ESCAPE ADDRESS 

RO, d#RPOY >DO THE WRITE 


d#OTADPB+16 + DONE? 
3$ ; 


OP 
4 + YES--BRANCH IF NO ERROR 
#8$, SESCAPE ++ESCAPE TO 8% ON ERROR 
@#¢OTADPB+12, A#CYL. OS > CYLINDER 
@SDTADPB+11. d#TRK. OS ; TRACK 
@tOTADPB+10. A#SEC. OS - SECTOR 
ROTADPB+16.-(SP) ;STATUS/ERROR iNDICATOR ADDRESS 
PC, d#ER INDX FORM DISPATCH INDEX 


(SP) +, PC ;REPORT PROPER ERROR 
41 ; 

42 ;PARITY ERROR 

43 7 UNSAFE ERROR 

yy ;NON-170 ERROR 


SEQ 0119 
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026010 
026012 
026020 


026206 
026214 
026216 
026222 
026226 
026234 


026236 
026242 
026244 
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001356 
000200 


032777 
001402 
000177 
005037 
032766 
001402 


000137 
012616 
000207 


000151 
035302 


004202 


035302 


004 202 


000001 
026142 
004176 
004175 
004174 
004202 
026246 


004202 
026206 
001364 


001252 
040000 


026364 


001000 
152666 


001206 
072006 


017366 


004166 


001334 
001206 
001270 
001274 
001272 


001103 


001220 


152724 


000002 
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% PROGRAM SUBROUTINES &2% 


4§: 


55: 


6$: 


7$: 


8S: 
12S: 


95: 
10%: 


11S: 


+ THIS SUBROUTINE CHECK FOR LOOP, 


ERRORS 41, 43, 44, 45, AND 46 


+ CALL 


¢ 


, 
’ 


LOP. CK: 


18: 


23: 


MOV 
JSR 
RETURN 


42, 
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ROR 


45 170 ER 
HURCKD, ABDTADPB+2 ; ; COMMAND=WRITE CHECK DATA 
0, aeRPOY ;00 


@tDTADPB+16 
5$ 

7$ 

RO, d#RPOY 
a#0TADPB+16 
6$ 


10$ 
#1, @#WCEFLG 
#8$, SESCAPE 


THE WRITE CHECK 


+ DONE? 

+NO--LOOP 

+ YES--BRANCH IF ERROR 
+D0 A 2ND WRITE CHECK 


; DONE? 

+ NO--LOOP 

; YES--BRANCH IF NO ERROR 

;SET THE WRITE CHECK ERROR FLAG 
;7;ESCAPE TO 8$ ON ERROR 


@#O0TAOPB+12, a#CYL. OS > CYLINDER 
SFOTADPB+11, 9 TRK. OS + TRACK 

O@#OTADPB+10, a#SEC. OS ; SECTOR 

#OTADPB+16.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 


PC, d#ER INDX 
(SP)+, PC 


DTADPB +16. - (SP) 
PC, LOP. 


FORM DISPATCH INDEX 
REPORT PROPER ERROR 


;PARITY ERROR 

+ UNSAFE ERROR 

+NON-170 ERROR 

;FATAL WRITE CHECK 

+ STATUS WORD 

+SEE IF LOOP, ABORT. OR CONTINUE 


cK 
KERR. CT, O#SERFLG ;GO TO NEXT TEST? 


10$ 
3eBYPASS, RO 
#SW14, DEC. SWR 


11$ 

RO, d#STALL 
STALL2 

RO 


DTA+16, -(SP) 
PC, LOP. CK 


> ees 


dSLPERR 
SESC 


SEOP 
(SP)+, (SP) 
PC 


ANCH 
; YES--GET EXIT ADDRESS 
+ STALL? 
;NO--BRANCH 
+ YES--CALL STALL ROUTINE 
+STALL TIME POINTER 


ABORT, OR CONTINUE SWITCHES AFTER 


STATUS WORD FROM DPB IN USE 


LOOP ON ERROR 

BR IF NOT 

;START AT THE LOOP ADDRESS 
LEAR ERROR ESCAPE FLAG 


APE eCL 
aGITIW1B1T13!B1T1Z181T10:B1TO2 161701. »2(SP) ;CHECK ERROR TYPE 


+BR IF ORIVE NOT OFFLINE. UNLOADED. OR 
PERSISTENT UNSAFE OR FATAL MASSBUS PARITY 
> TERMINATE DRIVE 

*ADJUST RETURN ADDRESS 


SEQ 0120 
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DZR JAB. P11 06-SEP-77 16: 20 % PROGRAM SUBROUTINES 2% . SEQ 0121 
6452 + THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
6453 +TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
6454 + THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 
4 + INDEX STATUS/ERROR 
6457 ; 0 HE HE hg BITO1 
6458 ; 2 BITIIIBITIO!NBIT 
6459 ; 4 BITIZ'BITO4 
6460 ; 6 BITOS'BITO3!<BITO9 & COMMAND=NON-1/0> 
6461 ; 10 BITO6!<BITO9 & COMMAND=170> 
6462 7 CALL 
6463 ; JSR #O0PB+16,-(SP) ;ADDRESS OF STATUS/ERROR INDICATOR 
6464 ; JSR PC, @#ER INDX +FORM INDEX 
aeee ; RETURN + INDEX 1S ON THE STACK 
6467 026246 010046 ERINDX: MOV RO, -(SP) + SAVE RO 
6468 026250 010146 MOV Ri, -(SP) +SAVE R1 
6469 026252 016600 000006 MOV 6(SP),RO ;GET STATUS/ERROR INDICATOR POINTER 
6470 026256 011037 001260 MoV (RO), @#SVSTAT ;SAVE THE STATUS/ERROR INDICATOR 
6471 026262 005001 CLR R1 START INDEX AT ZERO 
6472 026264 032710 BiT (PC)+, (RO) FORM INDEX OF 07? 
6473 026266 020402 .WORD BIT13!B1TO8!B1TO1 
647% 026270 001027 BNE 5$ + YES--BRANCH 
6475 026272 032710 BIT (PC)+, (RO) FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 
6476 026274 006004 .WORD B1T11!B1T10!81T02 
6477 026276 001023 BNE 4§ + YES--BRANCH 
6478 026300 032710 BIT (PC)+, (RO) FORM UNSAFE INDEX (4)? 
6479 026302 050020 -WORD BITI4!BITIZ2!BITO4 
6480 026304 001017 BNE 3$ + YES--BRANCH 
6481 026306 032710 BIT (PC)+, (RO) +FORM NON-170 ERROR INDEX (6)? 
6482 026310 000050 .WORD BITOS!BITOS 
6483 026312 001013 BNE 2$ + YES--BRANCH 
6484 026314 032710 BIT (PC)+, (RO) +FORM 170 ERROR INDEX (10)? 
6485 026316 000100 .WORD BITO6 
6486 026320 001007 BNE 1$ + YES--BRANCH 
6487 026322 032710 BIT (PC)+, (RO) + SOFTWARE TIMEOUT? 
6488 026324 001000 .WORD BITO9 
6489 026326 001410 BEQ 5$ ;NO--FORM INDEX OF 0 
6490 026330 122760 000150 177762 CMPB #150, -16(R0) + YES--170? 
6491 026336 003001 BGT 2$ + NO--BRANCH 
6492 026340 005201 1$: INC R1 + INDEX=10---ERROR=45 OR 46 
6493 026342 005201 23: INC R1 + INDEX=6---ERROR=44 
6494 026344 005201 35: INC R1 + INDEX=4---ERROR=43 
6495 026346 005201 4S: INC R1 + INDEX=2---ERROR=42 
6496 026350 006301 5S: ASL R1 + INDEX=0---ERROR=41 
6497 026352 010166 000006 MOV Ri, 6(SP) RETURN INDEX TO USER 
6498 026356 012601 MOV (SP)+,R1 RESTORE R1 
6499 026360 012600 Mov (SP)+,R0 RESTORE RO 
6500 026362 000207 RTS PC +RETURN FROM CALL 
6501 
6502 ; THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
6503 ; AMOUNT OF TIME IF BIT13 OF C.SWR = O OR A RANDOM AMOUNT OF TIME 
6504 IF BIT 13 OF C.SWR = 1. 
6505 + STALL1 CONTAINS SPEC IF IED TIME FOR TESTS O - 7, AND STALL2 
6506 CONTAINS THE TIME FOR TESTS 16-21. 


6507 > CALL 
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026364 


026444 


026446 
026452 
026460 
026464 
026472 
026500 
026506 
026510 
026514 
026520 
026524 


026526 


026572 


013046 


013746 


012637 


000207 


010146 


113737 
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020000 
023510 


000001 
000144 
000000 


177776 
000240 
152710 
026510 
000310 
000101 


000004 
152654 
177776 


010000 
047712 


047714 
047712 


047715 
047714 


001220 


000002 


177776 


152702 
152702 
152672 


047712 
000002 


001262 
001264 
001266 
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2% PROGRAM SUBROUTINES 82% 


. 
’ 


, 


STALL: 


1$: 
2s: 
3S: 


4$: 


JSR RO. STALL 
TIME POINTER 

MoV @(RO)+, - (SP) 
BIT @SW13, O8C. SHR 
BEQ 1$ 

JSR PC, d@SRAND 
MOV @ESLONUM, (SP) 
BiC # C77, (SP) 
CLR - (SP) 

SUB #1, 2(SP) 

BLO 4§ 

MoV #100. , (SP) 
TST RO 

DEC O( SP) 

BNE 3$ 

BR 2$ 

CMP (SP) +, (SP)+ 
RTS RO 


06-SEP-77 16:22 PAGE 126 


+WHERE TO FIND THE STALL TIME 


+PICKUP STALL TIME 
+USE A ——" TIME? 


NUMBER 
;AND USE IT FOR THE STALL TIME 
;BUT NEVER > 64 MILLISECONDS 
+CLEAR TEMP. LOCATION 
;MORE STALL REQUIRED? 
, ; NO--BRANCH 
+STALL FOR ng 4 1 MILLISECOND 
ial TO KILL TIME 
;LOOP IF MORE COUNTS NEEDED 


+ CLEAN OFF THE STACK 
XIT 


, 


;ROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING 
THIS STALL 1S REQUIRED TO COMPENSATE FOR THE ‘ACCESS READY’ DELAY 


1S NOT INCLUDED IN THE CALCULATED SEEK TIMES. 


+ SAVE THE PRESENT PROCESSOR STATUS 
SET THE PROCESSOR PRIORITY TO 5 
SAVE THE OLD CLOCK VECTOR ADDRESS 
+ SETUP NEW VECTOR ADDRESS 

+LOAD THE CLOCK BUFFER 

+ START THE CLOCK 

;WAIT FOR 2 MS 

+ INCREMENT STACK FOR RETURN 
;RESTORE OLD CLOCK VECTOR 

+RESTORE THE OLD PROCESSOR STATUS 


;ADDRESS OF DPB+10 (SECTOR NUMBER) 


R1 
GET ADDRESS OF DPB+10 
+STRIP FORMAT BIT FROM CYLINDER NUMBER 
+ CYLINDER NUMBER OK? 
+NO--BRANCH 
+ YES--HOW ABOUT TRACK/SECTOR* 
+BRANCH IF GOOD 


O@tBUFFER, d#CYL.RD ;SAVE THE EXPECTED AND THE 
OSBUFFER+3, O¢TRK. RD -RECIEVED CYLINDER. TRACK. 


, TESTS. 
> IN THE RPO4. THIS STALL TIME 
> CALL 
é JSR PC, de TWOMS 
RETURN 
TWOMS: MOV O#PS, - (SP) 
Mov #<5%32. >. d8PS 
MOV aPKV, - (SP) 
MOV #15, dPKV 
MoV #200. . PKB 
MoV #101, dPKCS 
WAIT 
18: ADD #4, SP 
MOV (SP )+, aPKV 
MoV (SP )+, d#PS 
RTS PC ;RETURN 
;ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 
> CALL 
; JSR RO, dSVERIFY 
3 ADR POINTER 
; RETURN 
VERIFY: MOV Ri, -(SP) ; SAVE 
MOV (RO)+,R1 
BIC #FNT22. DeBUFFER 
CMP QSBUF FER, 2(R1) 
BNE 1$ 
CMP O*tBUFFER+Z, (R1) 
BEQ 3$ 
1$: MOV 
MNOVB 
MOVB OSBUFFER+2, d8SEC. RD >; AND SECTOR 


SEQ 0122 
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026600 


026666 


026670 
026672 
026676 
026704 
026710 


02705C 
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112137 


000200 


005001 


000200 


001272 
001274 
001270 
026626 


000107 
025032 
001206 
001009 


152230 
000002 


177776 
037576 
034514 
000040 
004174 
004176 
000107 
001206 
035302 


004202 


027034 
004176 
004175 
004174 
004202 
026246 


000006 
000034 


001206 


004106 


152266 


005612 
000010 


004166 


001206 
001270 
001274 
001272 


4% PROGRAM SUBROUTINES 2% 
MOVB (R1)+, @#SEC. OS 


MOV #2%. SESCAPE +sESCAPE TO 2$ of ERROR 

TST - (RO) ;MAKE IT TEST PC+4 

ERROR 12 REPORT THE ERROR 
2: MOV #RECAL, OPB. 7 as ;LOAD RECALIBRATE ORDER CODE 

JSR RO. O#CALL. A +GO EXECUTE THE COMMAND 

CLR SESCAPE CLEAR ERROR ESCAPE FLAG 

BIT #SW9, ASHR +LOOP ON ERROR 7? 

BEQ 4$ +BR IF NOT 

JMP OSLPERR RETURN TO ERROR LOOP ADDRESS 
35: ADD #2,R0 + INCREMENT RETURN ADORESS 
4$: MOV (SP)+,R1 +RESTORE R1 


RTS RO sEXIT 


; THIS ROUTINE WILL PERFORM A “MASSBUS” INIT. FOLLOWED BY 
7A “RECALIBRATE” ON THE ORIVE UNDER TEST. 
NOTE: THIS ROUTINE DESTROYS R1 AND 


+> CALL 
; JSR RO. SRCHOO ;DO0 A MASSBUS INIT. AND RECAL 
; RETURNI ;RETURN HERE IF NO ERROR 
; RE TURN2Z ;RETURN HERE ON ERROR 
SRCHOO: CLR R1 ; INCASE OF ERROR (TYPTIM) 
CLR aePs 
MoV #1SR, ARPVEC ; SETUP INTERRUPT VECTOR 
MoV OFRPADR, RY ;PICKUP ADDRESS OF RPCS1 
MoV #B1TOS.RPCSZ2(R4) ;MASSBUS INIT. 
CLR atO0TADPB+10 ; TRACK=0; SECTOR=0 
CLR atOTADPB+12 ; CYLINDER =0 
MOV #RECAL. A#DTADPB+2 ; COMMAND = RECALIBRATE 
CLR O*SESCAPE ;NO ESCAPE ADDRESS 
JSR RO. d#RPOY ;CALL THE DRIVER 
OTADPB > OPB POINTER 
BR 4g ;QUEUE 1S FULL 
1$: TST DTADPB+16 ;WAIT ON DONE 
BEQ 1$ 
BPL 3$ ; TAKE NORMAL EXIT IF NO ERROR 
MOV #2%. SESCAPE ;2ESCAPE TO 2% ON ERROR 
MOV @t0TADPB+12, d#CYL. OS ; CYLINDER 
MOVB @tOTADPB+11. d#TRK. OS ; TRACK 
MOVB atO0TADPB+10. a#SEC. OS >; SECTOR 
MoV #OTADPB+16,.-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC, d#ER INDX ;FORM DISPATCH INDEX 
ADD (SP) +, PC ;REPORT PROPER ERROR 
ERROR 41 ; 
ERROR 42 ;PARITY ERROR 
ERROR 43 ; UNSAFE ERROR 
ERROR 44 ;NON-170 ERROR 
ERROR 45 > 170 ERROR 
23: TST (RO)+ ;ADJUST FOR ERROR EXIT 
BR 4§ ;GO TO THE EXIT 
38: CLR RPDACRY) > TRACK AND SECTOR = 0 
CLR RPCACRY) > CYLINDER = O 
4$: RTS RO ; RETURN 


SEQ 0123 
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027052 


027054 
027056 
027062 
027066 
027070 
027072 
027074 
027100 
027106 
027114 
027116 


027120 


027234 


06-SEP-77 1 


000002 


104412 
012700 
012701 
005020 
020001 
103775 
012710 
012737 
012737 
104413 
C00207 


012702 


017777 


001276 
001332 


047712 
077777 
077777 


001276 
001314 
152244 


152236 
152230 


152214 


152206 
152200 


152164 


056202 
152144 


001276 
001314 


177776 
000004 


177776 
000006 


001332 
152070 
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% PROGRAM SUBROUTINES &% 


06-SEP-77 16:22 PAGE 128 


THIS 1S AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 


DORTI: 


’ 
’ 


, 


STRTMR: 


1$: 


RTI 


JSR 
RETURN 


SAVREG 
MN 


PC, O#STRTMR 


#TIM. UP. RO 
@TIM. PT.R1 
(RO)+ 

RO, Ri 

1$ 


#BUFFER. (RO) 


RETURN FROM INTERRUPT 


at ROUTINE WILL INITIALIZE THE TIMERS USED BY THE “TIMING ROUT! ES 


; SAVE RO-R5S 

;START AT TIM. UP (MINIMUM) 
;STOP AT TIM. PT 

+ CLEAR 

; DONE? 

; NO--BRANCH 

; SETUP POINTER 


# CBIT1S., d#TIM. UP 7; SET MINIMUM TIME TO MAXIMUM 
# CBIT15, d#TIM. ON ; POSITIVE NUMBER 


PC 


RESTORE RO-RS 
+ RETURN 


; THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
;MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 


*NOTE: THIS ROUTINE DESTROYS R2 


> CALL 
COUNT: 
18: 
23: 
38: 
4§: 


53: 


MoV 
MoV 


JSR 
RETURN 


#TP,.R3 
FLAG, RS 


PC, d#COUNT 


#TIM. UP,R2 
RS 


1% 
#TIM. ON, RZ 
aPKC, (RZ)+ 
2$ 


OPKC, -2(R2) 
aPKC, ¥(R3) 
3$ 


(R2) 

(R2)+ 
@PKC, (R2)+ 
4§ 


OPKC, -2(R2) 
aPKC, 6(R3) 
5$ 


(R2) 

(R2)+ 
@PKC, (R2)+ 
(R2)+ 


;PARAMETER POINTER 
+FLAG=0=COUNT UP 
+ FLAG=-1=COUNT DOWN 


;PICKUP THE "UP" POINTER 
sUSE IT? 

>; YES--BRANCH 

;NO--PICKUP “DOWN” POINTER 
;LESS THAN PREVIOUS LOW? 

; NO--BRANCH 

+ YES--SAVE IT 

;LESS THAN THE LOW LIMIT? 

+> NO--BRANCH 

; YES--COUNT IT 

; ADVANCE THE POINTER 
;GREATER THAN PREVIOUS HIGH? 
+ NO--BRANCH 

; YES--SAVE IT 

; GREATER THAN THE HIGH LIMIT? 
; NO--BRANCH 

> YES--COUNT IT 

> ADVANCE THE PO‘NTER 

;ADD THIS COUNT TO THE TOTAL 


+ COUNT THIS READING 


(R2) 
SBUFFER+<4%814. >, OAT IM. PT ; SAVE THIS COUNT? 


6$ 
aPKC, aTIM. PT 


; NO--BRANCH 
+ YES--WELL SAVE IT THEN 


SEQ 0124 


et taal 


MO-11-D2RJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
DZR JAB. Pit 


06-SEP- 


77 16: 20 


027242 062737 000002 001332 


027250 


027252 
027254 
027262 
027264 
027270 
027272 
027274 
027276 
027302 
027304 
027306 
027312 
027314 


027436 
027442 


000207 


012002 
032777 
001145 


016446 
004737 


000100 
027304 


001276 


000014 
043700 


023220 
023450 
043725 


044040 
177776 
023220 
023450 
043732 


023220 
023450 
043725 
043707 


023220 
023450 
043725 


044040 
177776 
023220 


151656 


2% PROGRAM SUBROUTINES 2% 
ADD #2, 98TIN. PT 
RTS PC 
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ADVANCE THE POINTER 
ETURN 


. 
’ 


+ THIS ROUTINE 1S USED TO TYPE THE MINIMUM. 
;MAXIMUM, AND AVERAGE TINES FOR THE TIMING TESTS 


+ 1T WILL ALSO CHECK THE TIMES 


TO ENSURE 
; THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
+NOTE: THIS ROUTINE DESTROYS R2-R5 


+; CALL 

; JSR RO, d#TYPTIN 

é TABLE 

; RETURN 

TABLE: MSGADR1 

; MSGADR2 

; MIN. ALLOWED 

; MAX. ALLOWED 

TYPTIM: MOV (RO)+,22 
BIT #SWO6, ASWR 
BNE 7$ 
MoV (R2)+, 2% 
MoV (R2)+,R5 
MoV (R2)+,R3 
MOV (R2),R2 
MOV #TIM. UP. RY 

1$: TYPE 

23: .WORD O 
TST 14(R4) 
BEQ 6$ 
TYPE , MSGMIN 
MoV (R4)+, -CSP) 
JSR PC, d#$S820 
JSR PC, J#SSUPRS 
TYPE , MSGOUS 
TST (R4Y)+ 
BEQ 3$ 
TYPE MSG. SP 
MoV -2(R4),-CSP) 
JSR PC. d&$S82D0 
JSR PC, d#SSUPRS 
TYPE , MBELOW 
MoV R3,.-(SP) 
JSR PC, d#$SB820 
JSR PC, D#SSUPRS 
TYPE - MSGOUS 

34: TYPE , ASGMAX 


MoV (RY) +, - (SP) 
JSR PC, d#$S820 

JSR PC, @#SSUPRS 
TYPE , MSGOUS 


TST (R4Y)+ 

BEQ uy 

TYPE MSG. SP 

MOV -2(R4), -(SP) 


JSR PC, d#$SB20 


+GO REPORT THE TIMES 
;POINT TO THE PROPER TABLE 


ADDRESS OF ASCIZ MESSAGE NUMBER 1 
;ADDRESS OF ASCIZ MESSAGE NUMBER 2 
+MINIMUM TIME ALLOWED 
;MAXIMUM TIME ALLOWED 


;PICKUP THE TABLE POINTER 

+ INHIBIT TIME REPORTS? 

+ YES--BRANCH 

+ADDRESS OF MESSAGE NUMBER 1 
ADDRESS OF MESSAGE NUMBER 2 
+PICKUP THE LOW LIMIT 

*+AND THE HIGH LIMIT 
+PARAMETER POINTER 

+; TYPE THE MESSAGE 

+ASCIZ MESSAGE POINTER GOES HERE 
+DID ANY COUNTS OCCUR? 

+ NO--BRANCH 


; "MINS" 

;PUT (R4)+ ON THE STACK 
;CHANGE (R4)+ TO DECIMAL ASCIZ 
i TYPE WITHOUT LEADING ZEROS 


+ ANY ton & BELOW THE LOW LIMIT 


+PUT -2(R4) ON THE STACK 
CHANGE -2(R4) TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 
;"BELOW THE MINIMUM OF" 

;PUT R3 ON THE STACK 
+ CHANGE R3 TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


; "MAX=" 

;PUT (R4Y)+ ON THE STACK 
;CHANGE (R4)+ TO DECIMAL ASCIZ 
;TYPE WITHOUT LEADING ZEROS 


ANY SEEKS ABOVE THE HIGH LIMIT 
+ NO--BRANCH 
+ YES--REPORT HOW MANY 

;PUT -2(R4) ON THE STACK 
; CHANGE -2(R4) TO DECIMAL ASCIZ 


SEQ 0125 


MD-11-DZR JA-B a te AND ee boas TEST 
Pil 06-SEP 0 


DZR JAB. 


027446 


027576 


027626 


027630 
027634 


020237 


020137 
001410 


7 16:2 


023450 
043761 


023220 
023450 
043725 
043716 


023612 


023220 


027304 


044025 


001520 


001522 
001520 


001520 


001512 


J 10 
MACY11 30(1046) 


% PROGRAM SUBROUTINES &2% 


4§: 


5S: 


6S: 
7$: 


PC, OESSUPRS 
MABOVE 


PC, d#SSUPRS 
- MSGOUS 
; MSGAVG 
(RY) +, - (SP) 
(RY) 4, -(SP) 
(RY) +, - (SP) 
PC, d#SDIV 
(SP )+ 


5$ 

(SP) 

PC. a#$S820 
PC, O#SSUPRS 


, MSGNUM 
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+ TYPE WITHOUT LEADING ZEROS 
;"ABOVE THE MAXIMUM OF" 

;PUT R2 ON THE STACK 
;CHANGE R2 TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


VG= 


FORM THE AVERAGE 


+ 1S THE REMAINDER OVER HALF? 
+ NO--BRANCH 
+ YES--ROUND UP 


+CHANGE TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 


;PUT -2(R4) ON THE STACK 
+ CHANGE -2(R4) TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 
+"SEEKS TIMED” 
+NEXT MESSAGE POINTER 
+ 1F NONE EXIT 
+NO MORE THAN 2 


, EXIT 


+> THIS SUBROUTINE WILL INCREMENT THE TRACK 
;NUMBER (R2) BY THE AMOUNT SPECIFIED BY ‘IT’ 


CALL 


, 
; 
; 
, 


25: 


+; THIS SUBROUTINE WILL INCREMENT 


JSR 
RETURNI 
RE TURNZ 


RO. d# INCTRK 


RZ, d#LT 
2$ 


a8 1T. RZ 
R2, d&LT 


+ TRACK NUMBER GREATER THAN LT15 
+ TRACK NUMBER INCREMENTED 


;LAST TRACK COMPLETED? 

+ YES--EXIT 

;NO--UPDATE TRACK 

; TRACK TO BIG? 

;NO--EXIT 

; YES--SET TRACK TO LAST TRACK 
;ADJUST FOR RETURN 2 

+ RETURN 


THE CYLINDER 


;NUMBER (R1) BY THE AMOUNT SPECIFIED BY ‘IC’. 


*CALL 


’ 
‘ 
’ 


INCCYL: 


JSR 
RETURNI 
RE TURNZ 


CMP 
BEQ 


RO, d# INCCYL 


R1, d#LC 
2$ 


+CYLINDER NUMBER GREATER THAN LC15 
CYLINDER NUMBER INCREMENTED 


;LAST CYLINDER COMPLETED? 
; YES--EXIT 


SEQ 0126 


K 10 
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DZR JAB. P11 06-SEP- 16: 20 S55 PROGRAM SUBROUTINES %2% SEQ 0127 
6788 027636 063701 001514 ADD Otic. Ri ;NO--UPDATE CYLINDER 
6789 027642 020137 001512 CMP Ri, d@LC + CYLINDER TO B1G? 
6790 027646 003402 BLE 1$ “EXIT 
6791 027650 013701 001512 MoV @#LC,R1 : YES--SET CYLINDER TO LAST CYLINDER 
6792 027654 005720 15: TST (RO)+ ;ADJUST FOR RETURN 2 
ety 027656 000200 23: RTS RO +; RETURN 
6795 +; THIS ROUTINE DECREMENTS THE SECTOR ADDRESS. 
6796 > CALL 
6797 ; CLR (SP) ; CLEAR THE STACK 
6798 é JSR PC, DECSEC ; SUBROUT INE ENTRY 
he ; RETURN 
6801 027660 113766 004212 O00002 DECSEC: Move RP. REG+RPDA, 2(SP) ;PUT THE SECTOR ADDRESS ON THE STACK 
6802 027666 005366 000002 DEC 2(SP) ;DECREMENT THE ADDRESS 
6803 027672 100003 BPL 1$ ;BR IF NOT CORRECTION NEEDED 
6804 027674 013766 001634 000002 MoV PRMLMNT+22. . 2(SP) " OVERFLOW OCCURED. FORCE TO MAXIMUM ADDRESS 
ro 027702 000207 1$: RTS e PC RETURN 
6807 + THIS SUBROUTINE 1S USED TO FILL THE DATA BUFFER 
6808 ; WITH ADDRESSES FROM O TO 21 WITH EACH ADDRESS 
6809 ;BEING STORED IN 256 CONSECUTIVE LOCATIONS 
6810 ; CALL 
6811 ; JSR PC, d#F ILBUF 
6812 ; RETURN 
6813 
6814 027704 104412 FILBUF: SAVREG ;SAVE RO - RS 
6815 027706 005000 CLR RO ;FIRST DISK ADDRESS 
6816 027710 012701 047712 MoV #BUFFER. R1 + START FILLING HERE 
6817 027714 012702 o00400 15: Mov #256. .R2 ;DO0 256 WORDS 
6818 027720 010021 23: MoV RO, (R1)+ +; STORE 
6819 027722 005302 DEC R2 ; MORE? 
6820 027724 003375 . BGT 23 + YES--BRANCH 
6821 027726 005200 INC RO ;NO--UPDATE DISK ADDRESS 
6822 027730 023700 001630 CMP PRMLMT+22. RO ; DONE? 
6823 027734 103367 BHIS 1$ ; NO--BRANCH 
6824 027736 104413 RESREG ;RESTORE RO - RS 
<< 027740 000207 RTS PC ; RETURN 
6 
6827 ; THIS ROUTINE WILL CLEAR THE BUFFER BY 
oo ;SETTING EACH WORD TO "177400". 
6 ; 
6830 3 JSR RO, d#CLRBUF 
6831 ; RETURN 
6832 
6833 027742 104412 CLRBUF: SAVREG ;SAVE RO - RS 
6834 027744 012701 177400 MoV #177400. R1 ;WORD TO FILL BUFFER WITH 
6835 027750 012702 047712 MoV SBUFFER. R2 ;FIRST ADDRESS OF BUFFER 
6836 027754 012703 075712 MoV Sourrene<sis. 422. >.R3 ; LAST ADDRESS+2 OF BUFFER 
6837 027760 010122 15: MoV R1, (R2)+ ;FILL WORDS 1. 9....249.... 5625 
6838 027762 010122 MoV R1, (R2)+ PHL WORDS 2,10,... 250... . 5626 
6839 027764 010122 MoV Ri, (R2)+ ;FILL WORDS 3.11....251.... 5627 
6840 027766 010122 MoV R1, (R2)+ ;FILL WORDS 4.,12.... 252... . 5628 
6841 027770 010122 MoV R1,(R2)+ ;FILL WORDS 5.13.... 253... . 5629 
6842 027772 010122 MOV R1, (R2)+ ;FILL WORDS 6.14.... 254... . 5630 
6843 027774 010122 Mov R1, (R2)+ ;FILL WORDS 7.15,...255,... 5631 


MD-11-DZR JA-B ote op B oe AND READ/WRITE TEST 
DZR JAB. P11 6: 20 


027776 
030000 
030002 
030004 
030006 


030010 
030012 


030142 


06-SEP-77 


010122 


104412 


012702 
011603 


020123 
001063 


36 
062716 


000004 
047712 


000002 
000020 


001000 


3% PROGRAM SUBROUTINES 42% 
MOV Ri. (R2)+ 


CMP R2.R3 
BLO 1$ 
RESREG 

RTS RO 
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SEQ 0128 


ot HoRDS 8.16.... 256... . 5632 


NON <BRANCH 


RESTORE RO - RS 
+RETURN FROM CALL 


+ THIS ROUTINE 1S USED TO CHECK THE DATA BUFFER 
+FOR ADDRESSES 0 THROUGH 21 WITH EACH ADDRESS 
+BEING STORED IN 256 CONSECUTIVE LOCATIONS 


; CALL 
; JSR RO, 9#CKSCTR 
3 RETURN 
CKSCTR: SAVREG ;SAVE RO - RS 
sub #4, SP ;RESERVE TEMP. STORAGE AREA 
CLR R1 ;FIRST SECTOR 
MoV #BUFFER, (SP) ;FIRST ADDRESS OF DATA BUFFER 
CLR 2(SP) ;NO ERRORS 
15: Mov #16.,.R2 >; LOOP COUNT (16%16=256) 
“ MoV (SP)-R 3 ;GET 1ST ADDRESS OF THIS SECTORS DATA 
CMP R1, (R3)+ ; WORD 1 
BNE 7$ ;BRANCH IF BAD 
CMP R1, (R3)+ ;WORD 2 
BNE 73 >BRANCH IF BAD 
CMP R1, (R3)+ +WORD 3 
BNE 7% ;BRANCH IF BAD 
CMP Ri, (R3)+ >WORD 4 
BNE 7$ >BRANCH IF BAD 
CMP Ri. (R3)+ ;WORD 5 
BNE 7$ ;BRANCH IF BAD 
CMP Ri. (R3)+ >WORD 6 
BNE 7$ ;BRANCH IF BAD 
CMP Ri. (R3)+ ;WORD 7 
BNE 7$ ;BRANCH IF BAD 
CMP Ri, (R3)+ sWORD 8 
BNE 7$ >BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 9 
BNE 7$ >BRANCH IF BAD 
CMP Ri, (R3)+ >WORD 10 
BNE 7$ > BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 11 
BNE 7$ ;BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 12 
BNE 7$ ;BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 13 
BNE 73 ;BRANCH IF BAD 
CMP Ri. (R3)+ ;WORD 14 
BNE 7$ ;BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 15 
BNE 7$ ;BRANCH IF BAD 
CMP Ri, (R3)+ ;WORD 16 
BNE 7$ ;BRANCH IF BAD 
DEC R2 ; FINISHED WITH THIS SECTORS DATA? 
BNE 23 ; NO--BRANCH 
34: ADD #512... (SP) ; YES--FIRST ADDRESS OF NEXT SECTOR 


MD-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST 
Pil 06-SEP-77 16: 20 


DZR JAB. 


030146 


030354 
030356 


000115 


012321 
012321 


001630 
000002 
001364 


001252 
000004 


177740 
000040 
030036 
177776 
000002 
004176 
004175 
030300 


000002 


030316 
001000 
000002 
001364 
000040 


047712 
004170 
003044 


001103 


001126 


001270 
001274 
001206 


001206 
150614 
150604 
001103 
150564 
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SEX PROGRAM SUBROUTINES &2% 


4$: 


S$: 
63: 


75: 


8$: 


9S: 
10%: 


115: 


Ri 
waren 
2(SP) 


06-SEP-77 16.22 PAGE 133 


+ MOVE ,/° NEXT SECTOR 


; 


+NO- S BRANCH 
; ERROR OCCUR? 


6$ ANCH 
HERR. CT, ANSERFLG | MAX. ERROR OCCURRED? 
; NO--BRANCH 


OtBYPASS, RO 
#4, SP 


0 

R3.R4 
(SP).R4 
R4Y.RS 

R4 

# C37.R5 
8$ 
#40,R5 
RS 


#25.R5 
~2(R3), d#SBDDAT 
2(SP) 


; TAKE ERROR EXIT 
+FREE TEMP. AREA 
;RESTORE RO - RS 
RETURN FROM CALL 


+ FORM WORD NUMBER AND 
ADDRESS TO CONTINUE FROM 
WORD NUMBER 


+BRANCH IF NOT A MULTIPLE OF 16 
+SET TO WORD 16 


+ ADORESS 

+ SAVE BAD DATA 
FIRST ERROR? 
+ NO--BRANCH 


10$ 
O#DTADPB+12, a#CYL. OS ; CYLINDER NUMBER 
O#DTADPB+11. O#TRK. OS +; TRACK NUMBER 


#9$. SESCAPE 
21 


2(SP) 
11$ 


soe Seats 
#SWO9, OSHR 
5$ 

— - OSHR 


+-ESCAPE TO 9% ON ERROR 
+REPORT THE ERROR 
+SET ERROR SWITCH 


+-ESCAPE TO 118 As ERROR 
+REPORT THE ERRO 
+ LOOP ON ERROR? 


YES 
; STOP DATA COMPARE? 
YES--BRANCH 


os. CT. aNSERFLG +MAX. ERRORS? 


5 

#SWOS. ASHR 
3$ 

(R5) 


; YES--BRANCH 


; REPORT ONLY 1ST ERROR PER SECTOR? 


+ YES--BRANCH 


; THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 


. 
, 


, 
’ 


SE TBUF : 


15: 


MoV 
JSR 


SAVREG 
nM 


#NX. RO 
Pc, @@SE TBUF 


#BUFFER.R1 
OtOTADPB+4, RZ 
PAT. PT(RO).R3 
(R34, (RID+ 
(R34, (RID+ 
(R3)+, (RID+ 
(R3)+, (RID+ 


;DESIRED PATTERN INTO THE DATA BUFFER. 
LL 


;PATTERN NUMBER INDEX TO RO 


+ SAVE RO - RS 

FIRST ACORESS 

+WORD COUNT 

+PICKUP PATTERN POINTER 

;MOVE WORD 1 INTO DATA BUFFER 
+MOVE WORD 2 INTO DATA BUFFER 
+MOVE WORD 3 INTO DATA BUFFER 
;MOVE WORD 4 INTO DATA BUFFER 


SEQ 0129 


MD-11-DZRJA-B RPOY/5/6 eens AND READ/WRITE TEST 
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012321 


000207 


104412 
012701 
013702 
005046 
016003 


162321 


000020 


047712 
004170 


003044 


N 10 
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3% PROGRAM SUBROUTINES %2% 


’ 
, 
, 
; 
, 
’ 


DATCMP: 


15: 
23: 


MoV 
JSR 
RETURN 


SAVREG 
M 


(R34, (RID+ 
(R3)4, (RID+ 
(RI), (RID+ 
(R34, (RID+ 
(R34, (RID+ 
CRI)4, (RID+ 
(R3)4, (RI)D+ 
(R3)4, (R1I)D¢ 
(R34, (R1ID+ 
(R3)4, (RID+ 
(R3)+, (RID+ 
(R3)4, (R1)+ 


+ la + DONE? 


PC 


#NX. RO 
PC, d#DATCHP 


#BUFFER.R1 


O#OTADPB +4, RZ 
- (SP) 
PAT. PT(RO).R3 


(R3)+, (R1I)+ 
u 

(R3)+, (R1I)+ 
4§ 

(R3)+, (R1)+ 
4s 

(R3)+, (R1I)+ 
4 

(R3)+, (R1)+ 
4S 

(R3)+4, (R1)+ 
y 

(R3)+, (R1)D+ 
4g 

(R3)+, (RID+ 
uy 

(R3)+, (RID+ 
4g 

(R3)+, (RID+ 
4g 

(R3)+, (RI)D+ 
4§ 

(R3)+, (R1I)+ 
4§ 

(R3)+, (RID+ 
us 
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+MOVE WORD 5 INTO DATA BUFFER 


; MOVE 
+ MOVE oes 9 INTO DATA BUFFER 


;MOVE WORD 10 INTO DATA BUFFER 
;MOVE WORD 11 INTO DATA BUFFER 
;MOVE WORD 12 INTO DATA BUFFER 
;MOVE WORD 13 INTO DATA BUFFER 
;MOVE WORD 14 INTO DATA BUFFER 
;MOVE WORD 15 INTO DATA BUFFER 
MOVE WORD 16 INTO DATA BUFFER 
+ NO--BRANCH 

;RESTORE RO - RS 

+ RETURN 


THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
; AGAINST THE DATA BUFFER 
LL 


;PATTERN NUMBER INDEX TO RO 


;SAVE RO - RS 

+FIRST ADDRESS OF BUFFER 
+WORD COUNT 

+NO ERROR 

; PATTERN POINTER 


+ CHECK WORD 1 
+BRANCH IF DIFFERENT 
+ CHECK WORD 2 
BRANCH IF DIFFERENT 
+CHECK WORD 3 
BRANCH IF “eee! 
CHECK WORD 4 

+BRANCH IF DIFFERENT 
+ CHECK WORD 5 
BRANCH IF DIFFERENT 
+ CHECK WORD 6 
+BRANCH IF DIFFERENT 
+ CHECK WORD 7 
+BRANCH IF DIFFERENT 
+CHECK WORD 8 
+BRANCH IF DIFFERENT 
+ CHECK WORD 9 
BRANCH IF DIFFERENT 
+ CHECK WORD 10 
+BRANCH IF ot ‘veal 
+ CHECK WORD 1 

+BRANCH IF DIFFERENT 
+CHECK WORD 12 

; BRANCH 1F DIFFERENT 
CHECK WORD 13 
*BRANCH IF DIFFERENT 


SEQ 0130 


B ii 
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DZR JAB. P11 


030764 


030766 
030772 


06-SEP-77 


162321 


000115 


012701 
013702 


16: 2 


000020 


047712 


003044 
030470 
001122 
001120 


001126 
001124 


004176 
004175 
004174 
000016 
030714 


000014 


030734 
000002 
001364 
001252 


047712 
001630 


001270 
001274 
001272 


001206 


001206 
150176 
001103 
000016 


XX PROGRAM SUBROUTINES &2% 


SUB (R3)+, (R1ID+ +CHECK WORD 1 
BNE 4§ +BRANCH IF DIFFERENT 
SUB (R3)+, (RID+ CHECK WORD 15 
BNE 4§ ;BRANCH IF DIFFERENT 
SUB (R3)+, (RID+ ; CHECK K WORD 16 
BNE 44 + BRANCH IF DIFFERENT 
ADD #16. ,R2 
BNE 1$ NO -BRANCH 
35: TST (SP )+ ;YES -- CLEAN UP STACK 
RESREG +RESTORE RO - RS 
RTS PC 
4$: MoV R1,R4 +FORM THE WORD NUMBER 
SUB #BUFFER, RY 
ASR R4 WORD NUMBER 
MOV R3,R5 FORM ADDRESS TO CONTINUE FROM 
SUB PAT. PTCRO). RS 
ASL RS 
ADD #2$,R5 + ADDRESS 
AOD ~(R3),-CR1) RECONSTRUCT THE BAD WORD 


MoV Ri, 9#SBDAOR +; SAVE THE ERROR INFORMATION 
MoV R3. d#SGDADR ; 

MoV (R1)+,d8SB0DAT ; 

MoV (R3)+,d8SGDDAT ; 

TST (SP) + 1ST DATA COMPARE ERROR? 
BNE 6$ ; NO--BRANCH 

MoV @#OTADPB+12, ACYL. OS ; CYLINDER 

MOVB Q#DTADPB+11, P#TRK. OS + TRACK 

MOVB @#DTADPB+10. D#SEC. OS + SECTOR 


MoV 16(SP).RO ;GET TEST PC+4 
MoV #5%, SESCAPE ;;ESCAPE TO 5S ON ERROR 
ERROR 13 ;REPORT THE ERROR 

55: MoV 14(SP),RO ;PATTERN NUMBER INDEX 
COMB (SP) +SET THE ERROR SWITCH 
BR 7$ 

6S: 
MOV #74, SESCAPE ;;ESCAPE TO 7% ON ERROR 
ERROR 14 ;REPORT THE ERROR 

7S: BIT #SWO1, dSWR + STOP DATA COMPARE? 
BNE 3$ YES--EXIT 
CMPB OERR. CT. aSSERFLG + MAX. ERRORS? 
BHI 8$ ; NO--BRAN CH 
oy a ; YES--ERROR EXIT 

8$: JMP (RS) ;NO--CONTINUE AT NEXT WORD 


; THIS ROUTINE WILL FILL THE DATA BUFFER (256%22 WORDS) WITH 
;A RANDOM PATTERN. THE FIRST TWO WORDS OF EVERY 256 WILL 
;BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE 

+NEXT 254 WORDS. 

;NOTE: THIS ROUTINE DESTROYS R1 AND R2 


+ CALL 
; JSR RO. dF ILRAN 
; RETURN 


FILRAN: MOV #BUFFER. R1 
MoV PRMLMT+22,R2 ;MAXIMUM NUMBER OF SECTORS 


SEQ 0131 


MO-11-DZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
Pil 06-SEP-77 16: 20 


DZR JAB. 


030776 
031002 
031004 
031006 


031010 
031014 


004037 
005302 
100374 
000200 


013746 


031206 


023606 
023610 
050712 
051712 


023610 
000002 
031206 


023610 
023606 


031140 
001122 
001120 
001126 
001124 


050712 


001000 
001364 
000002 


001252 


023606 


001206 


147772 
001103 
147752 


C il 
MACY11 3001046) 


XX PROGRAM SUBROUTINES 44% 


1$: 


JSR 
DEC 
BPL 
RTS 


RO. d#RANPAT 
R2 


1$ 
RO 
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+ THIS ROUTINE USES THE FIRST TWO WORDS OF a. 

;READ BUFFER TO GENERATED A RANDOM PATTERN. THEN 

+ THE READ BUFFER 1S COMPARED TO THE PATTERN GENERATED. 
NOTE: THIS ROUTINE DESTROYS R1-R4 


CALL 


, 
’ 
’ 


RANCK: 


1$: 


25: 
3S: 


4S. 
5S: 


6$: 


JSR 
RETURN 


RO. d#RANCK 


O4SH I NUM. - (SP) 
O4SLONUM, - (SP) 


+ SAVE THE PRESENT RANDOM NUMBER 


#BUFFER+512.,.R2 ;READ BUFFER ADDRESS 
a patient ein RANDOM PATTERN ADDRESS 


1, 

(RZ), @#SLONUM 
2(RZ), O#SHINUM 
RO, d#RANPAT 
(SP )+, d#SLONUM 
(SP) +, d#SHINUM 

- (SP) 
neers 


+COPY IT INTO R3 FOR LATER USE 
+PRIME THE RANDOM NUMBER GENERATOR 


+GENERATE A RANDOM PATTERN 
RESTORE PRESENT RANDOM NUMBER 


NO ERRORS 
+;ARE THESE TWO WORDS DIFFERENT? 
+NO--BRANCH 


#3%, SESCAPE ++ESCAPE TO 3$ ON ERROR 
~(R3),-(R2) ;RECREATE THE BAD WORD 
RZ. d#SBOAROR +ADDRESS OF BAD DATA 

R3. a#SGDADR ;ADORESS OF GOOD DATA 
(R2)+,@#SBDDAT ;BAD DATA 

(R3)+,d#SGDDAT ;GOOD DATA 

R2,R4 FORM WORD NUMBER (1 TO 256) 
-- wataheattaaninn tt 

(SP) FIRST ERROR 

2$ + NO--BRANCH 

(SP) + YES--SET ERROR SWITCH 
15 +REPORT THE ERROR 

16 REPORT THE ERROR 

#SWO9. ASHR + LOOP ON ERROR? 

5$ YES--BRANCH 

OtERR. CT, aeSERFLG +MAX. ERRORS OCCURRED? 
5$ S--BRANCH 

#SWO1, ASWR ; STOP COMPARING? 

5$ + YES--BRANCH 

R1,R3 +ALL DATA BEEN COMPARED? 
1$ + NO--BRANCH 

(SP)+ ERROR OCCUR? 

6$ + NO--BRANCH 

a*BYPASS, RO ; TAKE ERROR EXIT 

RO 7 EXIT 


; THIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 
;PATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 


;OF THE PATTERN. 


SEQ 0132 


MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND wg tg 5S TEST 
DZR JAB. P11 16: 20 


031206 
031210 


031240 


031242 


06-SEP-77 


010246 


000200 


004737 


62 
023703 
002003 


000200 


023510 
023619 
023606 


023510 
023610 
027611 
023006 


001630 


000023 


001510 


001512 


D ii 
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% PROGRAM SUBROUTINES *%% 


*CALL 


. 
’ 


RANPAT: 


1$: 
23: 


MOV 
JSR 
RETURN 
fe 


#ADR, R1 ADDRESS OF THE BUFFER 
RO. d#RANPAT 

R2,-(SP) + SAVE RZ 

iene ;GENERATE 256 WORDS 

PC, d#SRAND GENERATE A RANDOM NUMBER 


SESLONUM, (R1)# ;PUT LOW WORD IN BUFFER 

QSSHINUM, (R1)+ ;>PUT HIGH WORD IN BUFFER 

R2 ; DONE? 

1$ ;NO--BRANCH : 
(SP)+,R2 ;RESTORE R2 

RO sEXIT 


THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR 
ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10 AND DTADPB+12). 
NOTE: THIS ROUTINE DESTROYS R1-R3 


> CALL 


’ 


RANADR: 


18: 
23: 


35: 
4S: 
5S: 


6$: 


JSR 
RETURN 


RO, A#RANADR 
PC, d#SRAND GENERATE A RANDOM NUMBER 
OSL ONUM. R1 7FORM SECTOR IN R1 


@#SLONUN+1,R2 ;FORM TRACK IN R2 
28 SHINUM, RS ;FORM CYLINDER IN R3 
Ri ENSURE THE SECTOR IS BETWEEN O AND 21 


2$ 
vw CHECK MAXIMUM SECTOR ADDRESS 


R2 ENSURE THE TRACK IS BETWEEN O AND 18 


te ENSURE THE CYLINDER |S BETWEEN FC AND LC 


SEQ 0133 


MO-11-DOZ2RJA-B RPO4Y/5/6 MECHANICAL AND READ/WRITE TEST 
XX PROGRAM SUBROUTINES &2% 


DZR JAB. Pil 


031364 


031422 


031424 
031432 
031434 
031440 


031462 
031462 


031514 


031516 


031530 


000241 


000200 


032777 
001430 
104401 
000410 


012703 
013704 
004037 
000771 
000240 
013737 
010437 
000207 


eae of 


104402 


06-SEP-77 16: 20 


001510 


004174 
004175 
004176 


000200 
031442 


043050 
001220 
031516 


001220 
001220 


031524 


147506 


001222 


9S: 


E ii 
MACY11 30(1046) 


R1, 9#OTADPB+10 
RZ, P#OTADPB+11 
+ hatte tals 


+ THIS ROUTINE 1S USED TO INPUT T 
+ 1F SWR<O7>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW 
SETTING 1S READ AND STORED. 
NOTE: THIS ROUTINE DESTROYS R3 AND R4 


> CALL 


’ 


GETSWR: 


+; 65S: 
64S: 
1$: 


23: 


JSR 
RETURN 


PC, O#GETSWR 


#SWO7, ASR 

2$ 

-65$ 

64S 

<CR><LF>/SET SUR 
#MSG. CS,.R3 


d#C. SHR, RY 
~ penne ens 
1 


C. SWR, SAVCSW 
R4, dC. SHR 
PC 
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+ SAVE SECTOR ADDRESS 

+ SAVE TRACK ADDRESS 

i+ SAVE CYLINDER ADDRESS 
+ RETURN 


HE “CONTROL SWITCHES”. 


+ (C. SHR)=DESIRED CONTROL SWITCHES 


READ CONTROL SWITCHES? 
+NO--BRANCH 

+; TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 
<07>=0/ 


+"CONTROL SWITCHES=" 

+PRESENT CONTROL SWITCH SETTINGS 

+GET THE NEW SWITCH SETTINGS 

+ COMMA 

+ PERIOD 

+ SAVE PREVIOUS VALUE 

+; DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
+RETURN FROM CALL 


; THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 

; INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 
7 IF REQUIRED. 
;NOTE: THIS ROUTINE DESTROYS R1 


> CALL 


GE TNUM: 
1$: 
23: 


RETURNS 


#ADR, RI 
#NUM, RY 
RO. d#GE TNUN 


R3, 2% 


0 
R4, - (SP) 


;ADDRESS OF ASCI2 MESSAGE 
+ OCTAL NUMBER 


+ INPUT TERMINATED WITH A COMMA 
+WITH A PERIOD 

*WITH A DOUBLE PERIOD 

+R4= INPUT NUMBER AND 

+RZ2=R4R32 FOR ALL 

+ THREE RETURNS 


SAVE MESSAGE POINTER 

+ TYPE THE MESSAGE 

;MESSAGE POINTER GOES HERE 

++SAVE RY FOR TYPEOUT 

+;GO TYPE--OCTAL ASCIICALL DIGITS) 


SEQ 0134 


F il 
MD-11-DZRJA-B RPO4Y/5/6 i.e” AND READ/WRITE TEST MACY11 30(1046) 


DZR JAB. P11 


031532 
031536 


031652 


031654 
031656 
031662 
031666 


031704 
031704 
031706 
031710 
031714 
031716 


06-SEP-77 


104401 
104411 
012601 
004037 
031522 
031522 
031564 
031610 
031616 
031562 
005301 


004037 
031522 
031604 
031602 


000200 


104412 
005037 
104401 
000406 


104411 
012601 
004037 
031656 
031656 


043074 


033766 


034226 


000uU56 


001232 
031670 


033766 


32% PROGRAM SUBROUTINES *2%% 
TYPE , SLASH 
ROLIN 


MoV (SP)+,R1 
JSR RO. d#CK. CHR 


1$ 
1$ 
3$ 
7$ 
8$ 
11$ 
11$: DEC R1 
3: 
JSR RO. d#CK. NUM 
1$ 
6$ 
5$ 
4$ 
4% TST (RO)+ 
5$ TST (RO)+ 
6$ Mov R2,R4 
BR 10% 
7$ TSTB (R1) 
BNE i$ 
R 10% 
8$ TSTB (R1) 
BEQ 98 
CMPB #'., (RID+ 
BNE 1$ 
TSTB (R1) 
BNE 1$ 
TST (RO)+ 
9S: TST (RO)+ 
10S: MOV R4,R2 
SWAB R2 
ASR R2 
ASR R2 
ASR R2 
RTS RO 
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z° 7 ' 

READ AN ASCIZ STRING 
ADDRESS OF Bas ds CHARACTER 
+ CHECK ONE CHARACTER 
+ ILLEGAL CHARACTER 
—_— RETURN 


’ 
nw 


:DIGIT 0-9 
[DECREMENT THE INPUT POINTER 


+ CHECK THE NUMBER 

+ ILLEGAL INPUT 

+ TERMINATED WITH A "."” OR "CR" 
; TERMINATED WITH A." 

> TERMINATED WITH A ".. ” 

+ DOUBLE PERIOD 

+ SINGLE PERIOD 

; COMMA--SAVE INPUT NUMBER 
+GO TO EXIT 

; TERMINATOR AFTER A COMMA? 

+ NO--LOOP 

+ YES--EXIT 

> TERMINATOR AFTER A PERIOD? 
+ YES--EXIT 

; NO-- DOUBLE PERIO07? 

; NO--LOO P 

+ YES-- TERMINATOR? 

‘ ; NO--LOOP 

;DOUBLE PERIOD 

; 100 

> COMMA--POSITION THE 
;NUMBER IN CASE IT 
71S THE PRIORITY LEVEL 


, EXIT 


; THIS ROUTINE 1S USED TO CHANGE OR MODIFY 


THE TEST PARAMETERS. 


1T GIVES THE OPERATOR 


;THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST. WHICH 
; TESTS TO RUN AND HOW MANY TIMES TO 


REPEAT EACH TEST 


GT. PRM: SAVREG 
GT. PR1i: CLR DRVSEL 


TYPE , 65$ 

BR 64S 
33658: .ASCIZ <CR><LF>/DRIVE(S)=7 
64S: 

ROL IN 

MOV (SP)+,R1 

JSR RO, d#CK. CHR 

GT. PR1 

GT. PR1 


+ SAVE RO - RS 

+NO DRIVE SELECTED 
+ TYPE ASCIZ STRING 
+;GET OVER THE ASCIZ 


+READ TTY 

+ADDRESS OF ASCIZ STRING 
CHECK ONE CHARACTER 

+ ILLEGAL CHARACTER 

; CARRIAGE RETURN 


SEQ 0135 


MD-11-OZRJA-B RPO4/5/6 ae. AND ag Ay FOS TEST 


DZ2R JAB. P11 


031720 
031722 
031724 
031726 
031730 
031732 
031732 
031736 
031742 
031744 
031746 
031750 
031752 


032010 


032012 
032012 
032016 


032026 


032026 
032030 


032164 


06-SEP-77 


031656 


000207 


104401 
000403 


104411 


000007 
034042 


034502 
001234 
001236 
034502 


032020 


000056 
000056 
000002 
001234 
001236 
001240 
001242 
000123 
000777 
000124 
036000 
000101 
140000 
000104 


000001 


001232 


001232 


000001 


001234 


001234 


001234 


001236 


G 11 
MACY11 30(1046) O6-SEP-77 16:22 PAGE 140 


% PROGRAM SUBROUTINES &2% 


3: 


4S: 


GT. PR2: 
R 


GTTST1: 


7; 65%: 
64S: 


GTTST2: 


1S: 


2s: 


3$: 


F sa 


:DIGIT 0-9 
Ri 


#7,R2 ;UPPER LIMIT OF INPUT 
RO. d#CK. DIG + CHECK THE DIGIT(S) 
; ILLEGAL INPUT 
+ INPUT TO LARGE 
+; TERMINATED WITH A “," OR "CR" 
+ TERMINATED WITH A". " 
; TERMINATED WITH A”... " 
re + aati ORVSEL ;SET THE ORIVE SELECTED BIT 


-(R1 WAS THE LINE TERMINATED? 
23 ;NO-GET THE NEXT DRIVE 
as TSTNMS ;DESELECT ALL TESTS 
TSTNMS+2 
GTTST1 YES--SELECT TEST 
ATABITCR2). DRUSEL ;SET THE SELECTED DRIVE BITS 

| RESTORE RO - RS 
PC EXIT 
, 655 3; TYPE ASCIZ STRING 
64S +-GET OVER THE ASCIZ 
7TEST=7 

;READ AN ASCIZ STRING 
(SP)+,R1 +POINTER TO R1 
#'., (R1) ; DOUBLE PERIOD? 
1$ ; NO--BRANCH 
#'.,10R1) 
1$ 
2(R1) ; "tr? 
GT. PR2 ; YES--EXIT 
TSTNMS ;NO TEST SELECTED 
TSTNMS#+2 
OPNFLG ;NO TESTS TO BE OPENED 
OPNFLG+2 
(R1),8'S ;ALL SEEK TESTS? 
1$ ; NO--BRANCH 
#777, TSTNMS ; YES--SELECT TESTS 0-10 
GTTST3 
(R1),8#'°T ;ALL TIMING TESTS? 
23 ; NO--BRANCH 
#36000. TSTNMS ; YES--SELECT TESTS 12-15 
GTTST3 
(R1),8'A +ALL ADDRESS!NG TESTS? 
3$ > NO--BRANCH 
#140000, TSTNMS ; YES--SELECT TESTS 16 & 17 
GTTST3 
(R1),8'D ;DATA TEST? 
44 ;NO--BRANCH 
#1, TSTNNS+2 ; YES--SELECT TEST 20 
GTTST3 


SEQ 0136 


MD-11-DZRJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 


DZR JAB. Pil 06-SEP-77 16: 20 


032342 


032410 


121127 


006204 
056264 


000105 
000002 001236 
033712 


033712 


000022 
032436 
000017 


001424 001234 
oocoss 


033712 


033712 


000622 
032436 


032436 
032436 
032436 


000037 


001424 001234 


4$: 


5S: 


6S: 


7$: 


8$: 


H 11 
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3% PROGRAM SUBROUTINES &2% 


(R1),@°E 

5$ 

#2, TSTNNS+2 
GTTST3 

RO. 9#CK. OCT 
GTTST4 
R2.R5 

R1 
i 


EXERCISER TEST? 
+ NO--BRANCH 
+ YES--SELECT TEST 21 


;OCTAL DIGIT? 

+ NO--BRANCH 

+ YES--SAVE IT 

+MOVE TO NEXT CHARACTER 
OCTAL DIGIT 

+ NO--BRANCH 

;MOVE TO NEXT CHARACTER 
+ SCALE HIGH DIGIT 


; COMBINE HIGH & LOW DIGITS 

;VALIO TEST NUMBER? 

+ NO--BRANCH 

;SAVE THE TEST NUMBER 

; CONVERT TEST NUMBER INTO AN INDEX 
; CLEAR UNWANTED BITS 

; SHIFT THE BITS 

;SHIFT THE BITS 

; SHIFT THE BITS 


R2 
BITS(R2Z2), TSTNMS(RY) ;SELECT TEST 


(R1),#'- 
GTTST4 


R1 

RO, d#CK. OCT 
GTTST1 
R2,R5 


R1 
RO, d#CK. OCT 


GTTST1 
R2,-(SP) 
9$.R2 
(5P)+, 9% 


R4 
BITS(R2), TSTNMS( 


+ TEST STRING? 

+ NO--BRANCH 

+ YES--MOVE TO NEXT CHARACTER 
;OCTAL DIGIT? 

+ NO--BRANCH 

+ YES--SAVE IT 

+MOVE TO NEXT CHARACTER 
/OCTAL DIGIT? 

+ NO--BRANCH 

+ YES--MOVE TO NEXT CHARACTER 
+ SCALE HIGH DIGIT 


+ COMBINE HIGH & LOW DIGIT 
+VALID TEST NUMBER? 

+ NO--BRANCH 

+ 1S THE FIRST NUMBER OF THE 
+STRING SMALLER THAN THE LAST? 
+ NO--BRANCH 

+ SAVE ENDING TEST NUMBER 
+GET STARTING TEST NUMBER 

+ STORE ENDING TEST NUMBER 
SHIFT ENDING TEST NUMBER 
+SHIFT TEST NUMBER 

+COPY TEST NUMBER INTO RY 
*CLEAR LOWER BITS 

+SHIFT THE TEST NUMBER 
;SHIFT THE TEST NUMBER 
SHIFT THE TEST NUMBER 

+ SHIFT THE TEST NUMBER 

RY) ;SELECT THE TEST 


SEQ 0137 


1 ii 
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DZ2R JAB. P11 


032636 
032640 


032644 
032646 
032650 


06-SEP-77 


000137 


104412 
005027 
000000 


16: 20 
000002 
032436 
000002 


000056 
001234 
001236 


032012 
000057 


001424 
000054 
032012 


032076 
001240 


001242 
032012 
000056 


032012 
001240 


001242 
032006 


032012 
001240 


001242 
032006 


001240 


%X% PROGRAM SUBROUTINES £22 


AOD #2.R2 + INECREMENT THE TEST NUMBER 
CMP R2. 9% +SEE 4 oe 
BLOS 8$ 7BR I 
SUB #2,R2 CORRECT. Test NUMBER 
BR GTTST4 + CONT INUE 
93: .WORD OQ ; STORE TEST NUMBER HERE 
GTTST3: INC R1 +MOVE TO NEXT CHARACTER 
GTTST4: CMPB (R1),@". +"PERIOO"? 
BEQ GTTSTS ; YES--BRANCH 
TST TSTNMS 4 pet SELECTED THIS CYCLE? 
BNE 1$ 7 BR YES 
TST TSTNMS+2 RNY rest SELECTED THIS CYCLE ? 
BNE 1$ > BR YES 
JMP GTTST1 ; NO 
1$: CMPB (R1),8'7 + "OPEN"? 
BNE 2$ + NO--BRANCH 
_ ._ OPNFLG(RY) + YES--SET BITS FOR TEST TO OPEN 
28: CMPB (P1),@', ;"“COMMA"? 
BEQ 3$ BR IF YES 
JMP GTTSTi +NO 
3: INC R1 ;MOVE TO NEXT CHARACTER 
TSTB (R1) "CR"? 
BEQ 4§ BR IF ‘CR’ 
JMP GTTST2 +NO--GO GET NEXT CHARACTER 
4S: TST OPNFLG PNY TESTS TO OPEN ? 
BNE OPNTST -BR IF YES 
TST OPNFLG+2 + ANY ig 3 TO OPEN ? 
BNE OPNTST ‘BR IF YES 
JMP GTTST1 +NO--START AGAIN 
GTTSTS: INC Ri ;MOVE TO NEXT CHARACTER 
CMPB (R1), 8%". ;"PERIOD"? 
BEQ GTTST6 ; YES--BRANCH 
TSTB (R1) ;"CR"? 
BEQ 1$ ; YES--BRANCH 
JMP GTTST1 
1$ TST OPNFLG ANY TESTS TO OPEN ? 
BNE OPNTST +BR IF YES 
TST OPNFLG+2 ANY TESTS TO OPEN ? 
BNE OPNTST BR IF YES 
JMP GT. PRZ +NO--GO START TESTING 
GTTST6: INC R1 + MOVE t° NEXT CHARACTER 
TSTB (R1) 
BEQ 1$ ; YES-- BRAN CH 
JMP GTTSTi +NO--GO ASK FOR TEST 
1$: TST OPNFLG ;ANY TESTS TO OPEN ? 
BNE OPNTST *BR IF YES 
TST OPNFLG+2 ;ANY TESTS TO OPEN ? 
BNE OPNTST ;BR IF YES 
JMP GT. PR2 +NO--GO START TESTING 
; OPEN THE SELECTED TEST FOR CHANGES 
OPNTST: SAVREG +SAVE RO - RS 
CLR (PC)+ +START WITH TEST O 
OPN. CT: .WORD 0 COUNT STORED HERE 


SEQ 0138 


MD-11-DZRJA-B RPO4/5/6 1 * ee AND READ/WRITE TEST 


DZ2R JAB. P11 


032652 


032736 


032750 
032750 


032754 


033110 


104411 
012601 


06-SEP-77 16:2 


032650 
000022 


032012 
032650 


032650 
000017 


001424 
032740 


632650 


001215 
001536 


001504 


001504 


001606 


044040 
001636 


04 3046 
001506 
023220 
023450 
043074 


032650 


001240 


033060 


J it 
MACY11 30(1046) 


3% PROGRAM SUBROUTINES 82% 


OPN. 2: 


+; 65S: 
64S: 


1$: 


2$: 


OPNPRM: 


1$: 


23: 
3S: 


4S: 


OPN. 2 

OPN. CT 
#STN-1. OPN. CT 
OPN. 2 

GTTST1 

OPN. CT. RS 

R5 


OPN. CT. R3 
#17,R3 
R3 


R3 


R3 
he ag OPNFLG(R3) 


ees. 

645 

7 TEST 7 
OPN. CT, -(SP) 
2 

0 

, SCRLF 
PRMPT(RS).RO 
(RO), -(SP) 
#PRM. RZ 

23 

(SP) 

23 

OPNPRM 

(R2)+ 

1$ 

(RO)+, (RZ2)+ 
1 

OSPR. (SP) 
RY 

(SP) 

3$ 

OPNPRM 

(R4Y)+ 

1$ 
PRMLMTCR4) 
OPNPAT 

MSG. SP 
PRMMSG(R4),.4S 
0 

- MSG. EQ 
RPT(R4Y), -CSP) 
PC, d#$SB820 
PC, d#SSUPRS 
, SLASH 


(SP)+,R1 
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SEQ 0139 
#SKIP THE INCREMENT 


RS 
+ YES--GO ASK FOR MORE TESTS 
+ SETUP TO USE THE 

TEST NUMBER AS AN INDEX 
GET INDEX 
+CLEAR LOWER TEST BITS 
+SHIFT TEST NUMBER 
SHIFT TEST NUMBER 

+; SHIFT TEST NUMBER 
OPEN THIS TEST? 
+NO--MOVE TO NEXT TEST 
;; TYPE ASCIZ STRING 
++GET OVER THE ASCIZ 


++ SAVE OPN. CT FOR TYPEOUT 

+; TEST NUMBER 

++GO TYPE--OCTAL ASCII 

++ TYPE 2 DIGIT(S) 

++ SUPPRESS LEADING ZEROS 

F TYPE “eR” & oe LF" 

+PICKUP PARAMETER POINTER 
;SAVE THE VARIABLE INDICATOR 
FIRST ADDRESS OF TABLE 


+ CHECK FOR A VARIABLE 
+GO MOVE THIS ONE 


+ DONE 

+BUMP THE POINTER 

+MOVE THIS VARIABLE INTO THE 
+ COMMON AREA 

+GET THE VARIABLE INDICATOR 
+ ZERO THE INDEX 

+ CHECK FOR A VARIABLE 

GO GET IT 


+OUT OF VARIABLES 
; UPDATE THE INDEX 


+ 1S THE MAX. MAGNITUDE NEG? 

+ YES--THEN IT 1S THE PATTE®N 

+; TYPE SPACES 

+; TYPE THE NAME OF THIS VARIABLE 


:TYPE “=” 

;PUT RPT(R4) ON THE STACK 
;CHANGE RPT(R4) TO DECIMAL ASCIZ 
; TYPE WITHOUT LEADING ZEROS 
s ‘ 7 ‘ 


;READ AN ASCIZ STRING 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
OZR JAB. P11 


033112 


033320 
033322 


005301 
016402 


033330 


06-SEP-77 16: 20 


033766 


033560 
000056 


033576 


001606 
034042 


001506 
044040 
043042 
04 3046 
001506 


044041 


033766 


000056 


034226 


K 11 
MACY11 30(1046) 


XX PROGRAM SUBROUTINES %2% 


55: 


6$: 


64S: 


7$: 
8$: 


9S: 


OPNPAT. 


2$: 
3: 


JSR 


RO. CK. CHR 


PRMLMT(R4Y), RZ 
RO. d#CK. OIG 


RZ, RPTCRY) 
2$ 


. EQ 
RPT(RY), -(SP) 
- MSG. SP +1 


(SP)+,R1 
RO, d#CK. CHR 


RO. d#CK. NUM 


O6-SEP-77 16:22 PAGE 144 


+ CHECK ONE CHARACTER 
+ ILLEGAL CHARACTER 
; = |AGE RETURN 


‘DIGIT O-9 
; "CR"? 
iNO--STAY ON THIS VARIABLE 
Ay geo TO NEXT VARIABLE 
1S THERE A “CR” AFTER THE PERIOD? 


NO 
5 YES--GO CLOSE THIS TEST 
DOUBLE PERIOD? 

+NO--GO ASK FOR THIS VARIABLE 

+ YES--1S A “CR” AFTER THE DOUBLE PERIOD? 
+NO--ASK FOR THIS VARIABLE AGAIN 
+YES--CLOSE ALL TEST 

+BACK THE POINTER UP BY ONE 


UPPER LIMIT OF INPUT 

+ CHECK THE DIGIT(S) 

+ ILLEGAL INPUT 

+ INPUT TO LARGE 

+ TERMINATED WITH A "." OR "CR" 
+ TERMINATED WITH A". " 

+ TERMINATED WITH A"... ” 

+ SAVE THIS VARIABLE 

+MOVE TO NEXT VARIABLE 

+ TYPE SPACES 


:T 

+;SAVE RPTCRY) FOR TYPEOUT 

++GO TYPE--OCTAL ASCIICALL DIGITS) 
+ TYPE ONE SPACE 

READ ASCIZ STRING 

PICKUP POINTER 

+ CHECK ONE CHARACTER 

+ ILLEGAL CHARACTER 

+ CARR I AGE RETURN 


’ 
-_o 


;DIGIT 0-9 

;"CR" AFTER THE PERIOD? 

> YES--GO CLOSE THIS TEST 
;NO--PERIOD? 

> NO--LOOP 

;"CR" AFTER A DOUBLE PERIOD? 
>; YES--GO START TESTING 

’ ;NO--L OOP 

;BACKUP THE ASCII POINTER 


+CHECK THE NUMBER 
ILLEGAL INPUT 
TERMINATED WITH A “," OR “CR” 


SEQ 0140 


MD-11-DZRJA-B RPOY/5/6 A ea ae AND READ/WRITE TEST 


DZR JAB. 


033350 


Pil 06-SEP-77 


104401 
000403 


010046 


001506 


003104 
033355 


023220 
023450 
043046 


033766 


034226 


000020 


000056 


033532 


033532 


L ii 
MACY11 30(1046) 


3% PROGRAM SUBROUTINES &2% 


4$: 


OPNWDS: 


1$: 


+655: 
645: 


10$ 
23: 


3s: 
4§: 


5S: 


8s: 
9S: 


OPN. Ni 
OPN. X1 
MOV 


ROR 
BCC 
SAVREG 
CLR 
TYPE 
BR 

. ASCIZ 


RZ, RPTCRY) 
R2 
OPNPRM 


RO 
#PATO, RY 


RO. - (SP) 
PC. 0#$S820 
PC, @#SSUPRS 
- MSG. EQ 
(RY), - (SP) 


(SP)+,R1 
RO. d#CK. CHR 


R1 
RO. d#CK. NUM 


RZ, (R4) 
(R4)+ 


RO 
#16. .R0 
$ 


1 

OPNWDS 
(R1) 

7$ 

#'., (RID+ 
$ 


1 
(R1) 
94 
1$ 

RZ, (R4)+ 
PC. d#CLSWDS 
OPN. N2 

RZ, (R4)+ 
PC, d#CLSWDS 


OPN. X2 


06-SEP-77 16:22 PAGE 145 
+ TERMINATED WITH 


; SAVE 

; OPEN PATTERN 07 

iNO--START AT BEGINNING OF PARAMETER TABLE 
+SAVE RO - RS 

+ START WITH WORD O 


+; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


+PUT RO ON THE STACK 
+ CHANGE RO TO DECIMAL ASCIZ 
+ TYPE WITHOUT LEADING ZEROS 
TYPE “=" 
++ SAVE (RY) FOR TYPEOUT 
+4GO TYPE--OCTAL ASCII(ALL DIGITS) 
READ ASCIZ STRING 
PICKUP THE POINTER 
+ CHECK ONE CHARACTER 
+ ILLEGAL CHARACTER 
+ CARRIAGE RETURN 


’ 
oe 


-w 
’ 


;DIGIT 0-9 
;BACKUP THE ASCII POINTER 


+ CHECK THE NUMBER 

+ ILLEGAL INPUT 

+ TERMINATED WITH A "“," OR “CR” 

+ TERMINATED WITH A". " 

+ TERMINATED WITHA". ™ 

+SAVE THE INPUT 

+MOVE TO NEXT WORD 

+ INCREMENT THE COUNT 

+ COUNT TO LARGE? 

+ NO--BRANCH 

+ YES--BRANCH 

"CR" AFTER THE PERIOD? 

+ YES--GO CLOSE THIS TEST 

+ NO--PER 10D? 

+NO--BRANCH ILLEGAL INPUT STRING 
:"CR" AFTER THE “PERIOD-PERIOD"? 
Ao ary I aay TESTING 


INPUT 
+CLOSE THE DATA PATTERN 
RESTORE RO - RS 
+MOVE TO NEXT TEST 
+SAVE THE INPUT 
+CLOSE THE DATA PATTERN 
RESTORE RO - RS 
+ START TESTING 


SEQ 0141 


MO-11-DZRJA-B RPOY/S/6 MECHANICAL AND READ/WRITE TEST 
Pil 06-SEP-77 16: 20 


DZ2R JAB. 


033710 


033712 


033726 


012701 
005200 


104413 
000207 


121127 
103407 
121127 
101004 
111102 


003104 
000017 


001506 
033632 
032654 
001506 
033632 
000034 


032006 
001424 


001504 


001536 


000001 


002000 


000060 
000067 


mM 11 
MACY11 30(1046) 


SZ PROGRAM SUBROUTINES %2% 


CLSWOS: MOV 
1$: IN 


B 
CLOSE: ~_— 


1$: BIT 


23: BIT 


3: TST 


BEQ 
RESREG 
RTS 


#PATO.R1 

RO 

#15..R0 

23 

(R14, (RYD+ 
1$ 


PC 

oe 

ont - CLOSE 
RE APTCRN) 
PC, + oe 
(R5)+ 

* haben 


GT. PR2 
BITS(RS),R3 
1$ 

2$ 


#PRM. RO 
PRMPT(RS).R1 
(RO)+,R2 
(R1)4,R3 
#1,R4 

R4Y,R2 


2$ 

R4,R3 

3$ 

(RO), (R1) 


, 


3$ 
(R1)+ 
(RO)+ 


R4 
#B1T10.R4 
1$ 


06-SEP-77 


sFIRST ADDRESS OF DATA PATTERN 
+ COUNT dd WORD THAT WAS STORED 


sEND OF T 
; YES--EX | T 
+ COPY 


+ LOOP 
RETURN 


16:22 PAGE 146 


RN 
7 SAVE THIS VARIABLE 


+60 0 

+SAVE THIS VARIABLE 
+CLEAN OFF THE STACK 
CLOSE THIS TEST 


; UPDATE THE 


INDEX 


+ INDEX TO BIG? 


+ NO--BRANCH 


+RESTORE RO - RS 


+GO TO EX 


IT 
1S THIS Ist OPEN FOR CHANGE? 


+YES--GO CLOSE IT 
+NO--MOVE TO NEXT TEST 
+SAVE RO - RS 

;"FROM" ADDRESS 


*+"TO" ADORE 


SS 


"FROM" INDICATOR 

"TO" INDICATOR 

+ TEST BIT START A “RPT™ 
+PARAMETER TO Be MOVED? 


+ NO--BRANCH 
+A PLACE TO 
+ NO--BRANCH 


PUT IT? 


+ YES--MOVE “FROM” TO "TO" 
"TO" PARAMETER? 


;NO--BRANCH 


+ YES--UPDATE THE POINTER 
+ UPDATE FROM POINTER 


; NO--BRANCH 
RESTORE RO 
RETURN 


PC 
+ THIS ROUTINE 1S USED TO CHECK IF AN 


Pi CHARACTER 1S A DIGIT BETWEEN O AND 7. 
; CALL 
ADDRESS OF ASCII CHARACTER 


JSR 


; RETURN1 
: RETURNZ 


CK. OCT: ay 


#ADR.R1 
RO. d#CK. OCT 


(R1).8'O 
1$ 
(R1),8'7 
1$ 
(R1),R2 


+POSITION THE TEST BIT 
NE? 


- RWS 


+CHECK THE CHARACTER 


+ CHARACTER 1S NOT BETWEEN 0-7 


7 CHARACTER IS IN R2 AS A 


OCTAL DIGIT 


+LESS THAN ZERO? 
YES -- BRANCH 

; GREATER THAN SEVEN? 
YES -- BRANCH 

;GET THE CHARACTER 


SEQ 0142 


MO-11-DZ2RJA-B RPOY/5/6 MECHANICAL AND READ/WRITE TEST 
DZR JAB. P11 7 


033730 
033734 
033736 


033740 
033744 
033746 
033752 
033754 
033756 
033762 
033764 


033766 


06-SEP-7 


042702 
005720 
000200 


121127 
? 


000200 


105711 


16: 20 
177770 


000060 
000071 


000060 


000057 
000054 
000056 
033740 


N 11 
MACY11 30(1046) 


3% PROGRAM SUBROUTINES 42% 


1$: 


BIC 
TST 


# C7,.R2 
(RO)+ 
RO 


06-SEP-77 16:22 PAGE 147 


STRIP AWAY THE ASCII 
+ADJUST FOR RETURN 
+ RETURN 


+ THIS ROUTINE 1S USED TO CHECK AN ASCII CHARACTER 
+AND DETERMINE IF IT 1S A DIGIT BETWEEN O AND 9. 


, 
, 

. 
’ 
’ 
, 
’ 


CK. DEC: 


1$: 


re ee ee ee ee ee ee 2) 


CK. CHR: 


MOV 
JSR 
RETURNI 
RETURNZ 


#ADR, R1 
RO. d#CK. DEC 


(R1),8'O 
1$ 
(R1),8'9 
1$ 
(R1),R2 
#'0,R2 


(RO)+ 
RO 


#ADR,R1 
RO. d#CK. CHR 
ADR 1 


23 

(R1),@'. 

1$ 

RO. d#CK. DEC 
5$ 

(RO)+ 

(RO)+ 

(RO)+ 


(RO)+ 
(RO)+ 


Ri 
(RO), RO 
RO 


;ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 

;NOT BETWEEN O AND 9 
+BETWEEN O AND 9 

+R2 = DIGIT 


4-3 THAN ZERO? 
YES -- BRANCH 

;GREATER THAN NINE? 
> YES -- BRANCH 
;GET THE CHARACTER 
;STRIP AWAY THE ASCII 
;ADJUST FOR RETURN 
+RETURN 


; THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
cL WHAT IT IS. 


;ADORESS OF ASCII CHARACTER 

+ CHECK CHARACTER 

+ UNKNOWN CHARACTER 

+ CARRIAGE RETURN % (R1)=ADR+1 
+SLASH & (R1)=ADR+1 

+COMMA & (R1)=ADR+1 

+PERIOD & (R1)=ADR+1 

‘DIGIT BETWEEN O AND 9. 

+R2 = DIGIT & (R1)=ADR+1 


+ “CARRIAGE RETURN"? 
ANCH 


; PERIOD 


CARRIAGE RETURN 

+MOVE POINTER TO NEXT CHARACTER 
+ UNKNOWN CHARACTER 

; RETURN 


; THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
; CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN P2 


SEQ 0143 








B 12 
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DZR JAB. P11 06-SEP-77 16: 20 XX PROGRAM SUBROUTINES 2% SEQ 0144 
7740 + CALL 
7741 ; MoV #ADR, RI s;AOORESS OF ASCIZ STRING 
7742 ; MOV @NUM, RZ ;MAX. MAGNITUDE OF INPUT NUMBER 
7743 ; JSR RO. d#CK. DIG CHECK DIGITS 
7744 ; RETURN ADR1 + ILLEGAL CHARACTER -- R2=? 
7745 ; RETURN ADRZ + INPUT NUMBER TO LARGE -- R2=? 
7746 ; RETURN ADRS “COMMA” -- RZ = NUMBER 
7747 ; RETURN ADRY :” PERIOD" -- RZ = NUMBER 
cot ; RETURN ADRS ; "PER |OD-PERI 00" ~e RZ = NUMBER 
7750 O34042 010446 CK. DIG: MOV RY, - (SP) +; SAVE RY 
7751 O34044 010346 Mov R3,-(SP) SAVE R3 
7752 O3404%6 010246 MoV R2, -(SP) ; SAVE THE MAX. SIZE ON THE STACK 
7753 034050 005002 CLR R2 + START WITH O 
7754 034052 005003 CLR R3 
7755 034054 005004 CLR R4 
7756 034056 004037 033766 JSR RO, d#CK. CHR ; CHECK ONE CHARACTER 
7757 +034062 034212 8$ + ILLEGAL CHARACTER 
7758 O34064 034212 8$ + CARRIAGE RETURN 
7759 4 034212 8$ os: 
7760 034070 034212 8$ apa 
7761 034072 034212 8$ pee 
7762 034074 034076 1$ -DIGIT 0-9 
7763 034076 006303 1$: ASL R3 +2 
7764 034100 010346 MOV R3,-(SP) SAVE %2 
7765 034102 006303 ASL R3 74 
7766 034104 006303 ASL R3 ‘8 
7767 034106 062603 ADD (SP)+,R3 + (88)4(82)=410. 
7768 034110 060203 ADD R2,R3 UPDATE THE INPUT NUMBER 
7769 034112 004037 033766 JSR RO. d#CK. CHR +CHECK ONE CHARACTER 
7770 034116 034212 8$ + ILLEGAL CHARACTER 
7771 +034120 034132 9$ + CARRIAGE RETURN 
7772 «034122 034212 8$ “he ite 
7773 «034124 034140 3$ ee 
7774 034126 034136 2$ lee 
7775 034130 034076 1$ ;DIGIT 0-9 
7776 034132 005301 9S: DEC R1 BACKUP THE CHARACTER POINTER 
7777 «=034134 000401 BR 3$ + CONT INE 
7778 034136 005724 2S: TST (R4)+ +“PERIOD" 
7779 «034140 005724 35: TST (R4)+ "COMMA" OR "CR" 
7780 034142 004037 033766 JSR RO, d#CK. CHR + CHECK ONE CHARACTER 
7781 O34146 034212 8$ + ILLEGAL CHARACTER 
7782 034150 034202 6$ CARRIAGE RETURN 
7783 034152 034212 8$ "hee gs 
7784 O34154 034212 8$ he 
7785 034156 034162 4§ “hy ee 
7786 034160 034172 5$ ;DIGIT O-9 
7787 034162 005724 4S: TST (R4)+ + (PER IOD-PER 100" 
7788 034164 105711 TSTB (R1) “CR”? 
7789 034166 001405 BEQ 6$ ; YES--BRANCH 
7790 034170 000410 BR 8$ 
7791 034172 126127 177776 000054 5%: CMPB ~2(R1),8', ;WAS CHARACTER BEFORE THE DIGIT A COMMA? 
7792 034200 001004 BNE 8$ ;NO--EXIT 
7793 034202 020316 6S: CMP R3, (SP) + INPUT TO LARGE? 
7794 034204 101001 BHI 7$ +YES -- BRANCH 


7795 034206 060400 ADD R4,RO ;ADJUST RETURN ADDRESS 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND ae doe TEST 
DZR JAB. P11 6: 20 


034210 
034212 
034214 
034216 
034220 
034222 
034224 


034226 


034344 


06-SEP-77 1 


005720 
010302 
005726 
012603 
012604 


011000 
000200 


010346 


011000 
000200 


033712 


033712 


033766 


000056 


7$: 
85: 


% PROGRAM SUBROUTINES x%% 


TST (RO)+ 
MoV R3,R2 
ST (SP)+ 


C12 « 
MACY11 30(1046) 


06-SEP-77 16:22 PAGE 149 


+NUMBER TO 


R2 
+ CLEAN Eas SIZE OFF OF STACK 


; ORE R 
+GET RETURN ADDRESS 
+ RETURN 


THIS ROUTINE CHECKS AN ASCIZ _ FOR LEGAL CHARACTERS 


RTS 
BND FORMS AN OCTAL NUMBER IN R 
; MOV #ADR, R1 
; JSR RO, d#CK. NUM 
; RETURN ADRi 
; RETURN ADRZ 
5 RETURN ADRZ 
; RETURN ADRY 
CK. NUM: MOV R3,-(SP) 
CLR R3 
JSR RO, d#CK. OCT 
BR 6$ 
15: INC Ri 
ASL R3 
BCS 6$ 
ASL Ro 
BCS 6$ 
ASL R3 
BCS 6$ 
ADD R2,R3 
JSR RO, d#CK. OCT 
BR 23 
BR 1$ 
23: MOV R3,.R2Z 
CLR R3 
JSR RO, d8CK. CHR 
6$ 
5% 
6$ 
5$ 
3$ 
6$ 
3S: TST (R3)+ 
CMPB (R1),8' 
BNE 5 
INC R1 
4S: TST (R3)+ 
55: TST (R3)+ 
TSTB (R1) 
BNE 6$ 
ADD R3,R0 
6S: MOV (SP)+,R3 
MOV (RO), RO 
RTS RO 


+;ADDRESS OF Pe STRING 
GO FORM THE NUMBER 


; ILLEGAL CHARACTER IN THE INPUT STRING 


; "COMMA" OR “CR"--RZ=NUMBER 
"PER10D"--RZ=NUMBER 
; "PER IOD-PER | OD"--R2=NUMBER 


; SAVE R3 

; START NUMBER AT ZERO 
;OCTAL DIGIT? 

; NO--BRANCH 

;MOVE TO NEXT CHARACTER 
;FOR THE OCTAL NUMBER IN R3 
;DON'T LET IT GET TO BIG 


+ 1S THIS AN OCTAL DIGIT? 
+NO--F IND OUT WHAT IT IS 


; YES--MAKE IT PART OF THE NUMBER 


+ SAVE THE OCTAL NUMBER 
+ START WITH ZERO INDEX 
+ CHECK ONE CHARACTER 

+ ILLEGAL CHARACTER 

+ CARR I AGE RETURN 


-DIGIT O-9 

; "PERIOD" 

+ "PERIOD-PERIOD"? 

+ NO--BRANCH 

+ YES--ADVANCE THE POINTER 
;"PERIOD-PER 10D" 


; NO--BRANCH 

+ YES--SAVE THE OCTAL NUMBER 
RESTORE R3 

PICKUP EXIT ADDRESS 

+ RETURN 


SEQ 0145 


D 12 
MD-11-OZR JA-B tet op B MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 150 
DZR JAB. Pil 06-SEP-77 16: 20 


034346 000000 000000 900000 
034354 000000 


034356 000 
034357 000 
034360 000 
034361 000 
034362 000 
034363 000 
034364 000 
034365 000 


034366 000 


034375 000 


XX PROGRAM SUBROUTINES %2% 
+s RAEXAAAAAAAAALA AAAS AA AAAS AA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


.SBTTL SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 
+COPYRIGHT (C) 1976 

+DIGITAL EQUIPMENT CORP. 

+MAYNARD, MA 01754 

+AUTHOR(S): JIM LACEY/CHUCK HESS 

4+ REXAAAAAAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AA AAA AAA AAA AAA TAY 


+ STORAGE BA ah ody RPER2. AND RPER3 ON AN ERROR "2" 


= RPOS1 
;RPERRS#2 = RPERI 
;RPERRS+4 = RPERZ 
sRPERRS+6 = RPERZ 


RPERRS: .WORD 0.0,0,0 


+; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT=0 IF DRIVE IS IDOLE 
;DRVACT>O IF DRIVE 1S ACTIVE WITH A COMMAND 
;DRVACT<O IF DRIVE 1S ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE OQ DRIVE O 
.BYTE 0 +ORIVE 1 
.BYTE 0 -DRIVE 2 
BYTE 0 DRIVE 3 
.BYTE O *ORIVE 4 
.BYTE O ;ORIVE 5 
BYTE 0 sORIVE 6 
BYTE 0 +ORIVE 7 


TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
;DRVSTA=O IF DRIVE 1S OFFLINE OR NONEXSITENT 
+ORVSTADO IF DRIVE 1S ONLINE 
*DRVSTACO IF ORIVE 1S UNSAFE 


ORVSTA: .BYTE OQ sORIVE O 
.BYTE O sORIVE 1 
BYTE 0 +DRIVE 2 
.BYTE O sORIVE 3 
BYTE 0 DRIVE 4 
BYTE OQ >DRIVE 5 
BYTE 0 DRIVE 6 
BYTE 0O sDRIVE 7 


; TABLE OF DRIVE TYPES (ORVTYP=8 BYTES) 
;DRVTYP=0 IF DRIVE 1S NONEXISTENT (DRVSTA=0, ALSO) 
; ORVTYP= 1 IF ORIVE IS RPOY 
;ORVTYP=2 IF ORIVE IS RPOS 
;DRVTYP=4 IF DRIVE IS RPO6 
;ORVTYP=-1 IF NOT RPO4/5/6 


SEQ 0146 


E 12 
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DZR JAB. P11 06-SEP-77 1 
7906 034376 000 
7907 034377 000 
7908 034400 000 
7909 034401 000 
7910 034402 000 
7911 034403 000 
7912 O34404 000 
7913 034405 000 
7914 
7915 
7916 
7917 
7918 
7919 O34406 000 
7920 034407 000 
7921 034410 000 
7922 =O34411 000 
7923 034412 000 
7924 = O34413 000 
7925 O34414 000 
7926 034415 000 
7927 
7928 
7929 
7930 
7931 
7932 034416 000 
7933 034417 000 
7934 034420 000 
7935 034421 000 
7936 034422 000 
7937 034423 000 
7938 034424 000 
7939 034425 000 
7940 
7941 
7942 
7943 
7944 
7945 034426 000000 
7946 
7947 
7948 
7949 
7950 
7951 
7952 
7953 034430 000000 
7954 
7955 
7956 
7957 
7958 
7959 034432 000 
7960 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1. 


DRVTYP: .BYTE O DRIVE O 
.BYTE 0 *ORIVE 1 
.BYTE 0 sDRIVE 2 
BYTE 0 DRIVE 3 
BYTE QO +DORIVE 4 
.BYTE O DRIVE 5 
.BYTE O DRIVE 6 
.BYTE 0 DRIVE 7 


+; TABLE OF DUAL PORT INITIALIZATION INDICATORS 
;DPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
;DPINT<O IF INITIALIZATION IS IN PROGRESS 


DPINT: .BYTE 0 DRIVE O 
.BYTE O sORIVE 1 
.BYTE 0 +DRIVE 2 
BYTE 0 sORIVE 3 
.BYTE 0O DRIVE 4 
.BYTE O DRIVE 5 
.BYTE 0 *DRIVE 6 
BYTE 0 DRIVE 7 


; TABLE OF PENDING DUAL PORT REQUESTS 
;DPRQS=0 IF THAT A DUAL PORT REQUEST 1S NOT PENDING FOR THAT DRIVE 
; DPROS<O \F THAT A DUAL PORT REQUEST IS PENDING FOR THAT ORIVE 


DPRQS: .BYTE 0 sORIVE O 
.BYTE 0O DRIVE 1 
.BYTE O sDORIVE 2 
.BYTE O DRIVE 3 
.BYTE 0O sORIVE 4 
.BYTE O sORIVE 5 
.BYTE 0 DRIVE 6 
.BYTE O sDRIVE 7 


; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
; THIS 1S A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;"DPB" OF THE 170 OPERATION. 


TRNSWT: .WORD O 
+ SEARCH nent KEYS (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 170 
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
EACH DRIVE 1S ASSIGNED ONE BIT, STARTING AT BITOO FOR ORIVE O. 
SRCHWT: .WORD 0 
;RPO4/5/6 DRIVER ACTIVE FLAG (ACTORV=1 Bi TE) 
;ACTORV=0 IF DRIVER IS INACTIVE 
; ACTORV>O \F ORIVER IS ACTIVE 
ACTORV: .BYTE 0 


; SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 


SEQ 0147 
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DZR JAB. Pil 


034433 


O34434 
O34435 
034436 
034437 
O34440 
O34441 
O34442 
O34443 


O34444 
O3444s 
O34446 
O34447 
034450 
034451 
034452 
034453 


034454 


034456 


034460 
034462 
034464 
034466 
034470 
034472 


06-SEP-77 1 


000 


000000 


000000 


177777 
177777 
177777 
177777 
177777 
177777 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0 SEQ 0148 


sACTSTR=O0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 


ACTSTR: .BYTE O 


+UNLOAD FLAG (ULDFLG=8 BYTES) 
+ULOFLG=0 IF NO UNLOAD COMMAND 
+ULOFLG>O IF UNLOAD COMMAND IN 


PROGRESS 
;ULOFLG<O IF UNLOAD COMMAND IN WAI 


T QUEUE 
ULOFLG: .BYTE 0 DRIVE O 
.BYTE 0 sORIVE 1 
BYTE 0 +DRIVE 2 
BYTE 0 sORIVE 3 
.BYTE QO DRIVE 4 
.BYTE 0 sORIVE 5 
.BYTE OQ sORIVE 6 
.BYTE O sORIVE 7 


+LOOK AHEAD COUNT (LACNT=8 BYTES) 
*+LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: .BYTE QO DRIVE 0 
.BYTE OQ DRIVE 1 
.BYTE Q DRIVE 2 
.BYTE O sORIVE 3 
.BYTE O DRIVE 4 
.BYTE OQ /ORIVE 5 
.BYTE OQ DRIVE 6 
.BYTE O +ORIVE 7 


; SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
VEFG <O IF SAVE THE RH11/7RPO4/5/6 REGISTERS WHEN THE 
; OPERATION 1S COMPLETED AS PER (OPB+14). 
;SAVEFG=0 IF SAVE THE RH117RPO4/5/6 REGISTERS. AS PER 
+ (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


+; SEEK FLAG (SEEKFG=1 WORD) 
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
;FOR A DATR TRANSFER START A SEARCH COMMAND 
;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
+DISREGARD THE WINDOW 


SEEKFG: .WORD 0 


; TIMEOUT TABLE (TIMER=8 WORDS) 
;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -1 DRIVE O 
.WORD -1 *DRIVE 1 
.WORD -1 sORIVE 2 
.WORD -1 DRIVE 3 
.WORD -1 DRIVE 4 
.WORD -1 -DRIVE 5 


MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST 
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034474 
034476 


034500 


034502 
034503 
034504 
034505 
034506 
034507 
034510 
034511 


034512 


034514 
034516 


034522 


034524 


034526 


034530 
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177777 
177777 


177777 


000003 


176700 
000254 


ooco04 


001000 


000200 


000005 


000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 


000240 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0149 
.WORD -1 +DORIVE 6 
.WORD -1 +ORIVE 7 


DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 _— 
+DTUWKO IF NO DATA TRANSFER UNDERWA 
;DTUWS4N (WHERE N=O0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


OTUW: 


. WORD 


“§ 


; ATTENTION dy TABLE (ATABIT=8 BYTES) 
; THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 


ATABIT: 


; ATTENTION BIT 
. BYTE 
.B 


> ORIVE 
;ORIVE 
> ORIVE 
;ORIVE 
> ORIVE 
; DRIVE 
; DRIVE 
> ORIVE 


NOMelWnN-oO 


;RPO4/5/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS" (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: 


. WORD 


3 


; STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4/5/6), 
;RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 


RPADR: 
RPVEC: 


MXLACT: 


. WORD 
. WORD 


. WORD 


176700 


254, 5%32. 
;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


;MAXIMUM DELTA DELAY 1S 8 SECTORS (MXDLTA=1 WORD) 


MXDL TA: 


. WORD 


8. x64. 
;MINIMUM DELTA DELAY 1S 2 SECTORS (MNDLTA=1 WORD) 


MNOL TA: 


. WORD 


2464. 
;MAXIMUM SEARCH FOR 170 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 


MXWNOW: 


. WORD 


5 


/DEFINITIONS OF THE RH11/RP04/75/76 ADDRESS INDEXES 


RPCS1=0 
RPWC=2 
RPBA=4 
RPDA=6 
RPCS2=10 
RPOS1=12 
RPER1=14 
RPAS=16 


CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 

;WORD COUNT REGISTER (NOT A DRIVE REG) 

;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG 05) 
CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
DRIVE STATUS REGISTER (ORIVE REG 01) 

ERROR REGISTER #1 (ORIVE REG 02) 

; ATTENTION SUMMARY PSEUDO REGISTER (ORIVE REG. 04) 
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034532 
034534 


034676 


06-SEP-77 


000046 


104412 
013746 


001366 


177776 
000240 
042516 
O34 346 
034456 


034500 
177777 


034366 
034370 
034372 
034374 
034516 
037376 
034520 
034514 
000040 


034744 


034366 
177770 


177776 


000010 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


RPLA=20 
RPOB=22 
RPNR=24 
RPOT=26 
RPSN=30 
RPOF =32 
RPCA=34 
RPCC=36 
RPER2=40 
RPER3=42 
RPEC1=44 
RPEC2=46 


|RH11/RP 
: CALL 


;NQTE: T 
RP INIT: 


24): 


33: 


4S: 
5S: 


LOOK AHEAD REGISTER (ORIVE REG 07) 
;DATA BUFFER REGISTER (NOT A DRIVE REG. ) 
+MAINTAINABILITY REGISTER hy ~¥) 03) 


; SERIAL NUMBER REGISTER Ne REG. 10) 
OFFSET REGISTER (ORIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (ORIVE REG. 
CURRENT CYLINDER ADORESS REGISTER (ORIVE REG. 
ERROR REGISTER #2 (ORIVE REG. 14) 

ERROR REGISTER #3 (ORIVE REG. 15) 

ECC POSITION REGISTER (ORIVE REG. 16) 

ECC PATTERN REGISTER (ORIVE REG. 17) 


xe” DRIVER INITIALIZATION CODE 

HIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE 
SAVATLABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;TO THE PROPER STATE FOR EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 


JSR . PC, RPINIT 


RETURN 

HE 'P' OR ‘L' CLOCK MUST BE STARTED 

SAVREG +SAVE RO - RS 

Mov OPS, - (SP) SAVE THE PRESENT PROCESSOR STATUS 


MOV #<5%32.>,08PS ;CHANGE THE PRIORITY TO 5 
JSR PC, CLRQUE > CLEAR ALL REQUEST QUEUES 


MoV @RPERRS. R1 FIRST ADDRESS TO BE CLEARED 
MOV #SEEKFG, RZ +LAST ADDRESS TO BE CLEARED 
CLR (R1)+ + CLEAR 

CMP R1i,R2 ARE WE DONE? 

BLOS 1$ BRANCH IF NO 

MOV #OTUW, R2 LAST ADDRESS 

MOV #-1, (R1)+ ; INITIALIZE 

CMP R1,R2 ; DONE? 

BLOS 2$ +LOOP IF NO 

CLR ORVSTA ;SET ALL DRIVES TO OFFLINE 


CLR ORVSTA+2 
CLR ORVSTA+4 

CLR DRVSTA+6 
MoV RPVEC.R3 
MOV #ISR, (R3)+ 
MoV RPVEC +2, (R3) 


; SETUP THE RH11/7RPO4/576 VECTOR 


nov RPADR, RY FIRST ADDRESS OF RH11/RPO4 
MoV #81705. RPCS2(R4) ;MASSBUS INIT 

CLR R1 + START WITH DRIVE O 

JSR RO. ORVINT 3 INIT THE DRIVE 

BR 4§ + *DVA* NOT SET OR PARITY ERROR 
BR 5% +NORMAL RETURN 

CLRB ORVSTACR1) SET DRIVE STATUS TO OFFLINE 
INC R1 +GO TO NEXT DRIVE 

BIC # C7,R1 *MASK OUT UNUSED BITS 

BNE 3$ 7BR IF MORE DRIVES TO GO 


12) 
13) 


SEQ 0150 
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034700 
034704 
034710 
034714 
034716 
034722 
034726 
034730 
034732 
034734 
034740 
034742 


034744 
034746 
034752 


035104 
035112 
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012701 


000207 


010546 
105061 


022705 
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000007 
177776 
034406 


042152 
034406 


177775 


034366 
034376 
O344 34 
000010 
000111 
010000 


042152 . 


034366 
004000 


041462 


000001 
020020 


024020 


000002 
020021 


024021 


000004 
020022 


000000 
000010 


000000 


034376 


034376 


034376 


SINGLE/DUAL PORT RH11/RP04/5/6 ORIVER (REV 1.0) 


MOV a7,R1 +START WITH DRIVE 7 
CLR aePs CLEAR THE PROCESSOR STATUS 
6$: TSTB DP INTCR1) ;WAITING FOR DRIVE TO SWITCH PORTS ? 
BEQ 8$ +BR NOT WAITING 
JSR PC, SET. IE *SET INTERRUPT 
7$: TST6 DP INT(R1) sDRIVE SWITCHED PORTS 7? 
BNE 7$ +BR IF NOT 
85: DEC Ri G0 TO THE By + OR I VE 
BPL 6$ + CHECK NEXT DRIVE 
MOV (SP)+, d8PS ;RESTORE THE PROCESSOR STATUS 
RESREG ;RESTORE RO - RS 
RTS PC + BYE-BYE 


DRIVE INITILIZATION ROUTINE 
+; THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
;AN RPOW/5/6. IF IT 1S, A “READ-IN PRESET" 1S ISSUED AND FMT22 
; 1S SET TO A “1". THEN MOL, DPR. ORY. AND VV ARE CHECKED TO 
; INSURE THEY ARE ALL ON A “1”. AND DEPENDING ON THEIR STATE, 
;DRVSTA IS SET TO THE PROPER CONDITION. 


CALL 
; MoV #ORVNUM, R1 ;ORIVE NUMBER TO R 
; MoV RPADR, RY ; UNIBUS a a OF "RH 1/RPO4/5/6 (RPCS1) 
; JSR RO. ORVINT ;CALLED BY A JSR 
; RETURNI ERROR OCCURRED (PARITY) 
; RETURN2 ;NORMAL RETURN 
DRVINT: MOV RS, - (SP) SAVE RS 
CLRB DRVSTACR1) ;START ORIVE STATUS AS OFFLINE 
CLRB DRVTYP(R1) +CLEAR THE DRIVE TYPE INDICATOR 
CLRB ULOFLG(R1) + CLEAR THE UNLOAD FLAG 
MoV R1,RPCSZ(R4) + SELECT A DRIVE 
MOVB #111,RPCS1(R4) ;00 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
BIT #B1T12,RPCSZ2(R4) ;NONEXISTENT DRIVE? 
BEQ 1$ +NO---BRANCH 
JSR PC, SET. IE ;GO SET "IE" WITHOUT A “TRE™ 
BR 6$ +LEAVE THIS ROUTINE 
1$: CLRB DRVSTACR1) ;SET ORIVE STATUS TO OFFLINE 
BIT #BITI1,RPCSI(R4Y) {SEE IF DRIVE AVAILABLE 
BEQ 7$ 7BR IF ORIVE NOT AVAILABLE 
i RO. RD. RP READ THE DRIVE TYPE REG. 
R 
8$ ERROR RETURN ADDRESS 


MoV (SP)+,R5 ;PUT ORIVE TYPE IN RS 
MOVB #1,ORVTYP(R1)  ;SET RPOY INDICATOR 

CMP #20020. R5 71S 1T A SINGLE PORT RPO4? 
BEQ 23 BRANCH IF YES 

CMP #24020. R5 *1S tT A DUAL PORT RPO? 
BEQ 2$ BR IF YES 

MOVB #2,DRVTYP(R1)  ;SET RPOS INDICATOR 

CMP #20021.R5 +SINGLE PORT RPOS ? 

BEQ 2$ 7-BR IF YES 

CMP #24021. R5 >DUAL PORT RPOS ? 

BEQ 2$ >BR IF YES 

MOVB #4, DRVTYP(R1)  ;SET RPO6& INDICATOR 

CMP #20022. R5 +SINGLE PORT RPO6 ? 


SEQ 0151 
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035302 


012605 
000200 


013746 
013737 


005062 


024022 
177777 


000121 
041642 


010009 
041642 


041462 


034502 


041462 


177777 


167077 


000001 


003720 
034406 


177776 
034520 
000001 


000016 


034376 


000016 


034366 


034366 


034460 


177776 
034432 


NGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


BEQ 23 ;BR IF YES 
CMP #24022. R5 4° PORT RPO6 ? 
BEQ BR I YES 
Move #-1,DRVTYP(R1) ;SET INDICATOR TO ‘CTHER' 
BR 6$ s EXIT 
23: MOV eiss. te ;00 A “READ-IN PRESET" 
JSR RO. WRT. R 
RPCS1 
8s 
MoV ota ;SET FMT22=1 
JSR RO, WRT.R 
RPOF 
83 
JSR RO. RD. RP ;READ RPOS1 
RPOS1 
8s 
MoV (SP)+,R5 ;AND SAVE IT IN RS 
BPL 4§$ ;BRANCH IF ATA=0 
Move ATABIT(R1),.RPAS(R4Y) ; CLEAR ATTENTION Bit 
JSR RO. RD. RP ;F IND OUT WHY ATA=1 
RPER1 
8S 
ROL (SP)+ ;1S IT aes 
BPL us ;BR IF N 
Move #-1, ORVSTACR1) :SET UNSAFE INDICATOR 
BR 6% ; EXIT 
4S: COM RS ; CHECK MOL. DPR. ORY. AND VV 
BIC ® €<B1T12'B1T08!B1T07'B1TO6>, RS 
BNE 6% ;BRANCH IF MOL. DPR. ORY. OR VV IS CLEAR 
MOVvB #1, ORVSTACR1) : SET DRIVE STATUS TO ONLINE 
6S: TST (RO)+ ;STEP OVER THE ERROR RETURN 
BR 8s ; EXIT 
73: ASL R1 ; CHANGE INDEX " > > aaa WORDS 
MoV #2000.. TIMER(R1) <START 2 SEC TIMER 
ASR R1i ;RESTORE R1 
COMB DP INTC(R1) 
TST (RO)+ 
8S: MOV (SP )+,R5 ;RESTORE RS 
RTS RO s EXIT 
;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
> CALL 
; JSR RO. d#RPO4 ;CALL THE RPO4/5/6 DRIVER 
3 PNTADR ;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
; RETURNI ;RETURN HERE iF QUEUE IS FULL 
; RE TURN2 ;RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
; 1S AN ERROR CONDITION 
RPO4: MOV aePs. -(SP) ;SAVE THE CALLING STATUS 
MoV RPVEC +2, d#PS ;DON'T ALLOW ANY RPO4/5/6 INTERRUPTS 
MOVB #1, ACTORV ;SET “ACTIVE DRIVER" FLAG 
SAVREG ;SAVE RO - RS 
MoV (RO), R2 ;PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLR 16(R2) ;CLEAR THE STATUSZERROR INDICATOR 


SEQ 0152 
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035566 
035572 


06-SEP-7 


111201 
013704 


7 16: 

O34 366 
034434 
034406 
O34744 
034366 
034416 


000010 
042614 


000103 


177777 
034356 


035574 
120000 
036/04 
042614 
000100 
042152 
034366 


140000 
034376 


100002 
110000 


034432 
177776 


000002 
034434 


000016 


000016 


000016 
000016 


1$: 


23: 


34: 
4: 
5S: 


6S: 


7$: 
8$: 


9S: 


10S: 
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DRVSTACRY) 
ULDFLG(R1) 
DP INT(R1) 
5$ 
RO. ORVINT 
4$ 
DRVSTACR1) 
6$ 
DPRQS(R1) 
5$ 


R1,RPCS2Z2(R4) 
RO. ORVQUE 


9$ 
#103, 2(R2) 
2$ 


#-1,ULOFLG(R1) 
DRVACT(R1) 


8$ 
PC. OPT 


8$ 
setae a: eT ad THE “UNLOAD IN QUEUE" ERROR FLAG 


PC.CI7 

8$ 

RO, ORVQUE 
9$ 

#B1TO6, (RY) 
8$ 

PC. SET. IE 
8$ 
omnes 
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+PICKUP THE DRIVE NUMBER 

+UNIBUS ADDRESS OF RPCSi 

+ CHECK DRIVES STATUS 

+ BRANCH 1F ONLINE 
UNL OAD IN QUEUE? 

;BRANCH | 


TRYING TO INIT THE ORIVE 
7BR IF YES 

;GO INIT. THE DRIVE 
ERROR RETURN 

+ 1S DRIVE STATUS ONLINE? 


+BR IF NOT 
OUTSTANDING PORT REQUEST FOR THE ORIVE 7? 
;BR IF YES 

+ SELECT THE DRIVE 

PUT THIS REQUEST IN QUEUE 

;QUEUVE 1S FULL 

4 pt A FOR AN UNLOAD? 

+SET THE “UNLOAD IN QUEUE” FLAG 

1S THIS DRIVE ACTIVE? 

BR IF YES 

CALL THE OPTIMIZER 


Ex! 
+GO HANDLE THE PARITY ERROR 


+PUT REQUEST IN QUEUE 

;QUEVE 1S FULL 

+1S '1E' SET ALREADY 7? 

BR IF IT IS 

+SET INTERRUPT 

RETURN. REQUEST IN QUEUE 

+SEE IF DRIVE OFFLINE OR UNSAFE 
BR IF UNSAFE 


$ 
#BITIS'BITI4.16(R2) {SET OFFLINE ERROR INDICATOR 


ORVTYP(R1) 


+SEE IF OFFLINE OR NONEXISTENT 
7BR IF OFFL 


8$ INE 

#BITIS!BITO1, 16(R2) | REPORT DRIVE NONEXISTENT 
8s :GO TO EXIT 

SOtTUSIS IVES. 10008) OR IVE 1S UNSAFE 


(RO)+ 
ACTORV 
(SP)+, d8PS 
RO 


STORE RO - R5 
+ SETUP FOR NORMAL RETURN 
FINISH UP. THEN EXIT 
RESTORE RO - RS 
+CORRECT THE RETURN ADDRESS 
*CLEAR “ACTIVE DRIVER" FLAG 
RETURN “PS” TO USER LEVEL 
+RETURN TO CALLER 


;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


CALL 


‘ 


’ 


MOV 
JSR 


#ORVNUM, R1 
PC, OPT 


;DRIVE NUMBER TO R1 
SETUP A COMMAND 


SEQ 0153 
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177776 
034502 
042670 
004000 
000109 
034744 
034366 
042712 
140000 
034366 
110000 
000111 
041642 
004000 
000150 
036270 
034500 
O34456 
037240 


036054 
036162 
177777 


023420 


036704 
000100 


042152 
177776 


034430 


000000 
000012 


000016 


000016 


000002 


O34416 


034460 


’ 


OPT: 


9S: 


10$: 


1$: 


23: 


35: 
4S: 
5S: 


6$: 
73S: 


85: 


SAVREG 
MO 
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SAVE RO - RS 
atPs, -(SP) SAVE PROC. STATUS 
ATABIT(R1), SRCHWT CLEAR “SEARCH WAIT" KEY 
PC, GETREQ ;GET “OPB” POINTER ' Ma te 
R2 + 1S THERE A REQUEST IN QUEUE? 
7$ +NO--BRANCH TO EXIT 
#BITI1,RPCSIC(R4) Ne i hae SET ? 


10$ 7BR I 
#BITG.RPOSICR4Y) [IS VV SET ? 
0$ 7BR IF 


1 iT 1S 

RO. ORVINT 7SEE IF OR VE STILL ONLINE ? 

6$ sPARITY OR ‘OVA’ NOT SET 

ORVSTACR1) ;1$ DRIVE ONLINE? 

1$ + YES--BRANCH 

PC. POPQUE iNO--REMOVE REQUEST FROM QUEUE 
#BITIS'‘BITI4,16(R2) [SET OFFLINE STATUS/ERROR INDICATOR 
DRVSTACR1) + 1S ORIVE UNSAFE ? 

8$ +BR TO EXIT IF NOT 

#BITIS!BITIZ, 16(R2) +SET UNSAFE STATUS/ERROR INDICATOR 
8$ BRANCH TO EXIT 

#111,-(SP) LOAD COMMAND ONTO THE STACK 

RO. WRT. RP ;LOAD THE REGISTER 


+REGISTER INCREMENT 
ERROR RETURN ADDRESS 
#BITI1, CRY) DRIVE AVAILABLE 7? 


5$ BR IF NOT 

#150, 2(R2) + 1S THE REQUEST FOR 170? 

23 + YES--BRANCH 

PC, CI4 +CALL THE COMMAND INITIATOR 
8$ BRANCH TO EXIT 

DTUW DATA TRANSFER UNDERWAY? 

4§ + YES--GO START A SEARCH 
SEEKFG +00 IMPLIED SEEKS? 

3$ + YES---BRANCH 

RO.LA ;NO--DO LOOK AHEAD 

8$ RETURN HERE ON A PARITY ERROR 
4§ +GO START A SEARCH 

eile + START A DATA TRANSFER 
PC.CI3 START A SEARCH 


8$ +GO TO THE EXIT 
#-1,DPRQS(R1) ;SET PORT REQUEST INDICATOR 
R1.R3 +SET UP TO ADDRESS WORDS 

R3 + CONVERT TO WORD INDEX 
| aaa TIMER (RS) + \ ad 10 SEC TIMER 


PC.CI? +PROCESS THE PARITY ERROR 
#B1TO6. (RY) +SEE IF ‘1E* ALREADY SET 
8$ BR IF SET 

PC, SET. IE ;SET "IE" WITHOUT A “TRE” 
(SP)+, d#PS RESTORE PROC. STATUS 


RESTORE RO - RS 
PC 


COMMAND INITIATOR 


SEQ 0154 
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010164 
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042712 
034426 


034514 
000010 
000004 
000002 


041642 


041642 


000002 
041642 


034500 
036646 
034514 
000010 
000012 
041642 


000010 
034530 
000026 
000011 
041642 


000131 
041642 
034502 


034514 
000010 


000001 


034430 


NGLE/DUAL PORT RH11 


: CALL 


Be Be Be Be Be Be Be Se 


Cli: 


Ci3: 


Clu: 


MACY11 


’ 


PC.CI? 


#ORVNUN, R1 
#0 2 


PC. POPQUE 
R2. TRNSWT 
R2.R3 
RPADR. RY 
R1,RPCSZ2(R4) 
#2,R4 

(R3)D+, (R44 
(R34, (RYD+ 
(R3)+,-(SP) 
RO, WRT. RP 


(R3)+, -(SP) 
RO. WRT. RP 


2(R2),- (SP) 
RO. WRT. RP 


R1, DTUW 
cis 


RPADR. R4 
R1,RPCS2(R4) 
12(R2).- (SP) 
RO. WRT. RP 


10(R2),R3 
MXWNDW, R3 


1$ 

#22. .R3 

R3. - (SP) 
11(R2),10SP) 
RO. WRT. RP 


#131, -(SP) 
RO. WRT. RP 


ATABIT(R1). SRCHWT 
cis 


RPADR. RY 


Ri, RPCS2(R4) 


M12 
30(104 
/RPO4/5/ 
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6 ORIVER (REV 1.0) 


+ DRIVE NUMBER 
+ADDRESS OF DPB 

sCi?= Cli,Ci3. OR C4 
+ WHERE: 

;Cl1SDATA TRANSFER 


+CIZ*SEARCH REQUESTED BY DATA XFER 
+CI4SNOT DATA TRANSFER 


REMOVE REQUEST FROM “DRIVES WAIT" QUEUE 
+PUT REQ. IN TRANSFER WAIT QUEUE 
DPB ADDRESS TO R3 


CT DRIVE 
+DESIRED WORD COUNT 
+RPWC ADDRESS 
+LOAD WORD COUNT 
+LOAD BUFFER ADDRESS 
+LOAD SECTOR AND TRACK 
‘CALL THE LOAD(WRITE) ROUTINE 
+ INDEX OF REGISTER TO LOAD 
ERROR RETURN ADDRESS 
+LOAD CYLINDER ADDRESS 


LOAD “COMMAND+G0", 


+ SET “DATA TRANSFER UNDERWAY” 
+RPCS1 ADDRESS 


+SELECT DRIVE 
+DESIRED CYLINDER ADDRESS 


PICKUP SECTOR ADDRESS 
+BACKUP BY MAX. SEARCH FOR 170 WINDOW 


;COMBINE THE ADJUSTED SECTOR WITH 
>THE DESIRED TRACK 
+LOAD DESIRED TRACK & SECTOR 


START A SEARCH 


*SET “SEARCH WRIT" KEY 


-RPCS1 ADDRESS 
SELECT DRIVE 


“A178A16". AND “PSEL” 


SEQ 0155 


MO-11-O2ZR JA-B Aart vB MECHANICAL AND READ/WRITE TEST 
OZR JAB. P11 7 16: 20 $| 


06-SEP-7 


116203 
122703 
001007 


016203 


116237 
116205 
004037 


000002 
000131 


000010 
041642 


000105 


000012 
041642 


000115 
041462 


000001 
041642 


000107 
000117 
000103 
000001 
034366 
000001 


041642 
000143 
041462 


000001 
041642 


034356 
034434 


000001 


036554 


N 12 
MACY11 30(1046) 


06-SEP-77 16:22 PAGE 160 


NGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


1$: 
23: 


35: 


4$: 


5S: 


63: 
74: 


8$ 


thy 
#i31,R3 


fH 
1Ocn2), -<sP> 
RO. WR 


2$ 
#105, R3 


Spt | te a 
RO. WRT. R 


Cl6 
#115,R3 
4$ 
RO. RD. RP 


1(R2), (SP) 
RO. WRT. RP 


#1, ORVACT(R1) 
DRVSTACR1) 
#1, ULDFLG(R1) 
R3.-(SP) 

RO. WRT. RP 


PC 
#143,R3 
6$ 
RO. RO. RP 


1(R2). 10SP) 
RO. WRT. RP 


128 

#141, R3 
10$ 
6(R2),R3 
10(R2), 9% 


110R2).R5 
RO. RO. RP 


+PICKUP THE REQUESTED COMMAND 
+ 1S tT A SEARCH COMMAND? 


+ BRANCH IF NO 
; LOAD DESIRED TRACK & SECTOR 


+GO LOAD CYLINDER 

*IS ITA a COMMAND 
+BRANCH | 

+ LOAD DESIRED CYLINDER 


+1S IT AN “OFFSET” COMMAND? 

BR IF NO 

sMERGE THE OFFSET VALUE INTO RPOF 
+BUT DON'T CHANGE THE UPPER 


+BYTE WHEN LOADING THE 
REGISTER (RPOF) 


+GO START THE COMMAND 

+18 IT A “RECALIBRATE” COMMAND? 
+BRANCH IF YES 

1S 'T A RETURN TO CENTER? 
BRANCH IF YE 

1S tT AN “UNLOAD” COMMAND? 
+BRANCH IF NO 

+SET THE DRIVE ACTIVE INDICATOR 
+PUT DRIVE STATUS TO OFFLINE 

+ SET “UNLOAD IN PROGRESS" FLAG 
START THE “UNLOAD” COMMAND 


+RETURN TO USER 

71S ITA md FORMAT” COMMAND? 
+BRANCH IF NO 

+ READ THE. OFFSET REGISTER 


-COMBINE “FMT22". "ECI". 
*LOAD “FMT22". “ECI", 


AND “HCI" 


1S 1T A “GET REGISTER” COMMAND? 
BRANCH IF NO 

POINTS TO 1ST ADDRESS OF WHERE 
TO PUT THE REGISTER(S) 


> INIT. THE INDEX FOR THE FIRST REG 


> INDEX OF LAST REG TO MOVE 
/READ RPOY/S/76 REGISTER 


AND/OR “HCI". 


SEQ 0156 


8 13 
MD-11-DZRJA-B RPO4/S5/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 161 
77 16: 20 SINGLE/OUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


DZR JAB. P11 


037034 


06-SEP- 


020137 


036554 
000002 
000145 


041642 


042712 
000200 
O34454 


042034 


001750 
000001 


041642 


010000 


104000 
042034 
000111 
041642 


042574 
O344 34 
034356 
034500 


034426 
177777 


010000 


034356 


034426 
034500 


036554 


000016 


034460 
034356 


000010 


000016 


034500 


000010 


9S: 
4 


10S: 
115: 


125: 


C16: 


C1?: 
1$: 


C178: 


A >; INDEX OF REG. TO READ 

MoV (SP)+, (R3)+ ;GET THE CONTENTS OF RH11/RPO4/5/6 REG. 
CMP 9$.R5 ;LAST REG. BEEN REAC? 

BEQ 12$ +GET OUT IF YES 

ADD #2,9% i INCREASE THE INDEX BY 2 

BR 8$ LOOP--MORE TO READ 

CMPB #145,R3 :1$ ITA Pa ad ORI VE" COMMAND? 
BEQ 12$ *BRANCH | YES 

JSR RO. WRT. RP 

RPCS1 

Ci? 


JSR PC, POPQUE REMOVE REQ. FROM QUEUE 
BIS #B1T07,16(R2)  ;SET THE “DONE” 


TST SAVEFG ;SAVE THE RH11/RPO4/5/6 REGISTERS? 
BPL 13% ;BRANCH IF NO 

JSR PC, SVRH11 + YES--GO SAVE THE REGISTERS 

RTS PC RETURN TO USER 

ASL Ri 

MoV #1000. , TIMER(R1) SET A ONE SECOND TIMER 


R1 
MOVB #1,DRVACT(R1) {SET THE DRIVE ACTIVE 
RTS PC +RETURN TO THE USER 
MoV R3,-(SP) ;LOAD THE COMMAND 
JSR RO. WRT. RP 


RPCS1 

C17 

BR cis 

BIT #B1T12,RPCSZ2(R4) ;ORIVE NON-EXISTENT ? 

BNE C18 +BR IF YES 

TST R2 + ANYTHING IN QUEUE ? 

BEQ C178 +BR IF NOT 

MoV #BiTiIS'BITiI1, 16(R2) ;SET “PARITY” ERROR INDICATOR 


;GO SAVE THE RH11/RPO4/5/6 REGISTERS 
DO A “DRIVE CLEAR" 


JSR PC, SVRH11 
MOV #111. -(SP) 
JSR RO. WRT. RP 


pgp 

! 

JSR PC, EMPTYQ EMPTY THE QUEUE 

CLRB ULDFLG(R1) CLEAR THE UNLOAD IN QUEUE FLAG 
CLRB DRVACT(R1) *DRIVE 1S IDOLE 


CMP «R14, DTUW ;1F THIS DRIVE HAD AN 170 REQUEST 
BNE 1$ ; IN PROGRESS CLEAR ALL OF THE FLAGS 
CLR = TRNSWT 

nov = #-1-OTUH 


RTS 

SAVREG *SAVE RO - R5 

BIT #B1T12, RPCS2(R4) AF "NED' SET ? 
BNE 1$ 7 BR YES 

CLR R1 

CLR R3 

TSTB DRVACT(R1) DRIVE ACTIVE? 
BEQ 5$ +BRANCH IF NO 


*>GET THE “TRANSFER WAIT" QUEUE 
DID THIS DRIVE HAVE AN 170 IN PROGRESS? 


MOV TRNSWT, RZ 
CMP R1,O0TUW 


SEQ 0157 


MO-11-DZRJA-B RPO4/5/6 a te AND READ/WRITE TEST 


DZR JAB. P11 


037240 


06-SEP-77 


126137 
003026 


042670 


010000 
100002 


177777 
034426 
034434 
010000 


000002 
177770 


177777 
034426 
042516 
00CuU40 


042574 
034366 
034376 
042152 


034514 
000010 
041462 


000012 


O34444 
O34444 


000010 
000016 
000016 
034460 


034500 


000010 


034500 


000010 


034522 


23: 


35: 
4S: 


5S: 


6S: 


7$: 


C 13 
MACY11 30(1046) 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


2$ 
PC, GETREQ 
R2 


4§ ; 
#B1T12,RPCSZ(R4) 
3$ + BR 
#BITIS!BITOL, 16(R2) 


PC, SVRH11 
Seaeekes 


ULOFLG(R1) 


PC, CL 


PC, EMPTYQ 
DRVSTACR1) 
ORVTYP(R1) 
PC, SET. IE 


PC 


LOOK AHEAD ROUTINE 


[CALL 


, 
, 
; 
’ 
, 
, 


LA: 


RETURNZ 


#ORVNUM, R1 
#DPB.R2 
RO. LA 


RPADR, RY 
Ri, RPCS2(R4) 
RO. RD. RP 


(SP)+, 12(R2) 


3$ 
LACNT(R1) 


LACNT(R1), MXLACT 
2$ 


ete panetine manage” 


06-SEP-77 16:22 PAGE 162 


+BRANCH | 


YES 
+GET THE DP POINTER 
? QUEUE ENTRY FOR DRIVE 7? 


;BR IF NOT 
; NED" SET ? 
+SET 'ORIVE NON-EXISTENT’ INDICATOR 


4§ ; 
#B1T1IS!BIT10,16(R2) ;SET “NON-CLEARABLE PARITY" ERROR INDICATOR 
R + SAVE RH11/RPO4/5/6 REGISTERS 

+STOP THE TIMER 

;SET “DRIVE ACTIVE" TO IDLE 

+ 1S THIS ORIVE SETUP FOR A TRANSFER 

7BR IF NOT 
RESET THE INDICATOR 
;CLEAR THE TRANSFER QUEUE 
+CLEAR UNLOAD FLAG 

, SET ? 


ES 
;MOVE TO THE NEXT DRIVE 


BRANCH IF MORE DRIVES 

+NO DATA TRANSFERS UNDERWAY 

oy THE ‘TRANSFER WAIT’ QUEUE 
RQUE ;CLEAR ALL OF THE REQUEST QUEUES 

#B1TOS,RPCS2(R4) + DO ,. MASSBUS INIT. 

7$ ONT | NUE 


; 


;CLEAR THE ORIVE'S QUEUE 

+SET DRIVE TO OFFLINE 

+CLEAR THE DRIVE TYPE INDICATOR 
;SET “IE” WITHOUT “TRE” 
RESTORE RO - R5 


>RETURN 


DRIVE NUMBER 
;POINT TO DPB 


+GO CHECK THE WINDOW 


ERROR RETURN 


START A SEARCH 
+START A DATA TRANSFER 


GET RPCS1'S ADDRESS 


>SELECT DRIVE 


+READ CURRENT CYLINDER 


ERROR RETURN ADORESS 
+ 1S CURRENT CYLINDER=DESIRED 


7 CYLINDER? 
sEXIT IF NO 


+ INCREMENT THE LOOK AHEAD COUNT 
;EXCEED MAX? 
+BRANCH IF YES 


SEQ 0158 


MD-11-DZRJA-B RPOY/5S/6 ie AND READ/WRITE TEST 


DZR JAB. P11 


037302 


037374 


037376 
037404 
037406 
037412 
037416 
037420 
037424 
037426 
037432 
0374 34 
037440 


037442 


06-SEP-77 


116203 


000200 


112737 


000010 


000340 
041462 


002600 
034524 


034526 
O34444 


036704 


000001 


O34514 
034500 


037442 
037602 
034432 


034356 
177777 


177777 


034426 
034426 


O34454 


042034 
035574 


177776 


034432 


034500 
034460 


000016 


38: 


4S: 
55: 


D 13 
MACY11 30(1046) 
SINGLE/DUAL PORT RH11/RPO4/5/6 ORIVER (REV 1.0) 


10(R2),R3 
R3 

R3 

R3 

#340, OPS 
RO, RD. RP 

(SP)+,R3 


1$ 
#422. K64. >, RZ 
MXDLTA, R3 

3$ 

MNOL TA. R3 

3$ 


LACNT(R1) 
(RO)+ 
(RO)+ 


5$ 
PC.CI? 
RO 


+ INTERRUPT SERVICE ROUTINE 


ISR: 


15: 
23: 


#1, ACTORV 


RPADR, RY 
DTUW. R1 


ACTORV 


+ TRANSFER DONE ROUTINE 


DRVACT(R1) 
#-1,O0TUW 


R1 

#-1, TIMER(R1) 
Ri 

TRNSHT, RZ 
TRNSWT 
#81707, 16(R2) 
Ri, RPCSZ(R4) 
RO. RD. RP 

(SP )+ 

3$ 

SAVEFG 

1$ 

aaa 


’ 


06-SEP-77 16:22 PAGE 163 


SEQ 0159 


GET DESIRED SECTOR ADDRESS AND 
MULT. BY 64--ALIGN WITH 
;LOOK AHEAD REGISTER 


PRIORITY LEVEL "7" 
READ LOOK AHEAD REGISTER 


+ CALCULATE THE DELTA 


;MAKE THE DELTA POSITIVE 
+ CHECK THE DELTA TO SEE 
IF IT 1S WITHIN THE 
+WINDOW--- IF YES, ZERO 

; THE LOOK AHEAD COUNT 
AND TAKE THE 170 EXIT 


; ADJUST THE RETURN ADDRESS 


7 EXI 
;PROCESS THE ERROR 
+ RETURN 


*SET “ACTIVE DRIVER" FLAG 

+ SAVE RO - RS 

ADDRESS OF RHSCS1 

;GET “DATA TRANSFER UNDERWAY” INDICATOR 
;BRANCH IF NO DATA TRANSFER UNDERWAY 
CALL TRANSFER DONE 


; EXIT 
cmt SPECIAL CONDITIONS 
RESTORE RO - RS 

;CLEAR “ACTIVE ORIVER™ FLAG 
; RETURN 


+SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DATA TRANSFERS UNDERWAY 


> CANCEL TIMEOUT 


+GET “OPB" ADDRESS FROM THE 

+ TRANSFER WAIT QUEUE--CLEAR QUEUE 
+ SET DONE 

>SELECT THE ORIVE 

+ TRANSFER ERROR(TRE=1)? 


BR IF YES 

SAVE THE RH11/RPO4/5/6 REGISTERS? 
;BRANCH IF NO 

+ YES--SAVE THE REGISTERS 

>CALL OPTIMIZER 


MD-11-DZRJA-B RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
DZR JAB. Pil 06-SEP-77 16: 20 


037542 


037774 


001014 
004037 
00000 


105761 


000113 
100100 
042574 
042034 


040111 
000113 


000016 
041462 


042754 
042152 


ooco01 


034406 


040574 
O34416 


040574 
034366 


034434 
042670 
042034 
040524 
034366 
040000 


0404 34 
034350 


034356 


000016 


034346 


E 13 
MACY11 30(1046) 


06-SEP-77 16:22 PAGE 164 


SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


25: 
35: 


sc 
#113, (RY) 


CHECK OTHER ORIVES 
+RELEASE THE DRIVE 
K FOR OTHER DRIVES 


; CHECK 
a8 171518 1T06, 16¢82) SET DATA ERROR FLAG 
YQ sEMPTY T 


PC. EMPT 
PC, SVRH11 


#40111, (RY) 


#113, (RY) 
sc 


- SPECIAL CONDITION ROUTINE 


SC: 


35: 
5S: 


RPAS(R4Y), RS 
2$ 


RO. RD. RP 


(SP)+ 

1$ 

eee or 
PC. SET. ‘é 
PC 


- (SP) 
R3. (SP) 
R3 


PC 

DP INT(R1) 
1$ : 
SC13 
DPRQS(R1) 
2$ 

SC13 
DRVSTACR1) 
5$ 
ULOFLG(R1) 
5$ 

PC, GETREQ 
PC, SVRH11 
Pc, SC12 
DRVSTACR1) 
6$ 


#BITI4,RPERRS 
3$ 


SCi1 
RPERRS+2,R5 


SC6A 
DRVACT(R1) 


HE "“DRIVE'S WAIT” QUEUE 
: SAVE THE RH11/RPO4/5/6 REGISTERS 
; ISSUE A “DRIVE CLEAR" 
; ISSUE A RELEASE TO THE DRIVE 
+CHECK FOR OTHER ORIVES 


;READ “RPAS" 
BRANCH IF ANY ‘ATA’ BITS SET 
;READ CONTROL AND STATUS REGISTER 


: is “1E"%=s1? 

+ YES. NO DRIVES TO CHECK 

+ SAVE THE ADDRESS IN ‘SESCAPE' 
REPORT AN ILLEGAL INTERRUPT 
+SET INTERRUPT ENABLE 

+ RETURN 

PROCESS ALL DRIVES THAT HAVE 
;AN “ATA"=1 


, ATA=1? 
+ YES--BRANCH 
+MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE TO CHECK? 

;CLEAN OFF THE STACK 

RETURN TO USER 

; INITIALIZING THE DRIVE ? 

+BR IF NOT 

PROCESS THE DRIVE 

PORT REQUEST OUTSTANDING 7? 

BR IF NOT 

;START THE OUTSTANDING COMMAND 

+ CHECK THE DRIVE STATUS 

BRANCH IF ONLINE 

UNLOAD IN PROGRESS? 

+BRANCH IF NOT 

+GET DPB POINTER 

+ SAVE THE RH11/RPO4/5/76 REGISTERS 
;SAVE RPOS1. RPER1. RPERZ. AND RPERS 
7ALSO DO A DRIVE INIT (DRVINT) 
*DID DR!VE COME ONLINE? 

+ NO---BRANCH 

; WAS THERE AN ERROR? 


“YES -- PICKUP RPER1 AND 
+GO PROCESS THE ERROR 


DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY 7? 


SEQ 0160 


MD-11-DZRJA-B RPO4/5/6 2° ee AND READ/WRITE TEST 


F 13 
MACY11 301046) 


06-SEP-77 16:22 PAGE 165 


DZR JAB. P11 06-SEP-77 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1. 0) SEQ 0161 
8690 040000 001033 BNE SC6 ;BR IF EITHER 
8691 040002 004737 040524 JSR PC. SC12 SAVE RPDS1. RPER1, RPERZ. AND RPERS 
8692 ALSO DO A DRVINT 
8693 O40006 105761 034406 6$: TSTB DP INTC(R1) + TRYING TO INIT THE DPIVE ? 
8694 040012 001321 BNE SCc4 +BR IF YES, CHECK ON MORE DRIVES 
8695 040014 105761 034366 TSTB ORVSTACR1) + CHECK ON DRIVE'S STATUS 
8696 040020 100412 BMI 7$ +BR IF UNSAFE 
8697 040022 032737 020000 034354 BIT #B1T13, RPERRS+6 + PLUG CHANGED 7? 
8698 0030 001013 BNE 8$ F YES 
8699 O40032 012746 000113 MOV #113, -(SP) RELEASE COMMAND 
8700 040036 004037 041642 JSR RO. WRT. RP ;WRITE THE COMMAND INTO RPCS1 
8701 040042 000000 RPCS1 REGISTER INDEX 
8702 O40044 O4C0404 Sc8 PARITY EXIT ADORESS 
8703 O4004%— 011605 7$: Mov (SP),R5 +PICKUP (RPAS) BEFORE THE ERROR CALL 
8704 040050 004037 042754 JSR RO. ES. SAV + SAVE THE ADORESS IN ‘SESCAPE' 
8705 040054 104002 ERROR 2 ;REPORT THE UNEXPECTED ATTENTION 
8706 040056 000677 BR sc4 +GO CHECK FOR MORE ATA'S 
8707 040060 8$: 
8708 040060 004037 042754 JSR RO. ES. SAV SAVE THE ADDRESS IN ‘SESCAPE' 
8709 040064 104005 ERROR 5 ;REPORT THE ADDRESS PLUG CHANGE 
8710 040066 000673 BR SCc4 + CHECK FOR MORE DRIVES 
8711 040070 006301 ASL R1 + SETUP TO ADDRESS WORDS 
8712 040072 012761 177777 034460 MOV 8-1, TIMER(R1)  ;STOP THE TIMER 
8713 040100 006201 ASR Ri RESTORE THE DRIVE ADDRESS 
8714 040102 004737 042670 JSR PC, GETREQ ;GET THE OPB POINTER FROM THE QUEUE 
8715 040106 010164 O0C010 MoV R1,RPCSZ2(R4) >SELECT DRIVE 
8716 040112 004037 041462 JSR RO, RD. RP ;READ THE RPO¥'S STATUS REG 
8717 040116 000012 RPDS1 
8718 040120 O4O0404 Scg 
8719 040122 011605 MOV (SP),R5 ;AND PUT IT IN RS 
8720 040124 006126 ROL (SP )+ ;WAS THERE AN ERROR? 
8721 040126 100407 BMI 1$ BR IF ERROR 
8722 040130 105761 034356 TSTB a ; CHECK DRIVE'S STATE 
8723 040134 003137 BGT SC1 +BR IF DRIVE ACTIVE WITH ORDER 
8724 040136 052762 100210 000016 BIS $6 1T15!B1T07!BITO3, 16(R2) + INFORM USER OF ERROR RECOVER COMPLETION 
8725 040144 000470 BR SC? 
8726 040146 004037 041462 1$: JSR RO. RD. RP +READ ERROR REGISTER #1 
8727 040152 000014 RPER1 
8728 040154 040404 Sc8 
8729 040156 012605 MoV (SP)+,R5 ;AND SAVE IT IN RS 
8730 040160 004737 042034 JSR PC, SVRH11 > SAVE RH11/7RPO4/5/6 REGISTERS 
8731 040164 012746 000111 Mov #111,-(SP) + ISSUE A DRIVE CLEAR 
8732 040170 037 041642 JSR RO. WRT. RP 
8733 040174 RPCS1 
8734 040176 O4O0404 sc8 
8735 040200 006105 SC6A: ROL RS ;WAS “UNSAFE” CONDITION =17? 
8736 040202 100406 BMI 13 BRANCH IF YES 
8737 0204 005702 TST R2 ANYTHING IN QUEUE ? 
8738 040206 001447 BEQ Sc? BR IF NOT 
8739 040210 052762 100240 O000i6 BIS #B1T15!B1T07!B1TOS, 16(R2) + INFORM USER OF ERROR 
8740 040216 000443 BR SC? 
8741 040220 OO4037 041462 1$: JSR RO. RO. RP ;READ DRIVE STATUS REG. #1 
8742 040224 000012 RPDS1 
8743 040226 O40404 sc8 
8744 040230 011605 MOV (SP),R5 +SAVE RPOS1 IN RS 
8745 040232 006126 ROL (SP )+ ;"ERR"=1? 


MD-11-DZRJA-B RPO4/S/6 Me + a pes AND READ/WRITE TEST 
DZR JAB. P11 6: 20 


06-SEP-77 


000401 


16: 


177777 
042034 
110000 


010000 


177777 
000001 


072460 


037656 
100220 
034356 
042574 
034434 


034434 
034502 
034366 
000113 
041642 
037656 
034356 


042670 
036704 


036732 
037656 
034434 
034434 


034356 
034502 


034454 
042034 


034744 


034 366 
000016 


034356 
034366 


034460 


000016 


000016 


034430 


000016 


000016 


034346 
034350 
034352 
034354 


G 13 
MACY11 30(1046) 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


23: 


35: 
SC?: 


1S: 


SC11: 


23: 


$C12: 


2$ 

#-1, ORVSTACR1) 
C, SVRH11 
“mignon 


sc 
#B1T12,R5 
3$ 


#-1, ORVACT(R1) 
#1, ORVSTACR1) 


IF | owe" CLEARED 


7 BR 
‘DRIVE 1S UNSAF 
; SAV 


E RH11/RPO4/5/76 REGISTERS 
+ INFORM USER OF UNSAFE ERROR 


_ MOL 7 < 1 ss 
:BR IF YES 
; ACTIVE ERROR RECOVER 


Ri 
: amaeint tm: sce + START 30 SECOND TIMER 


sc4 
#81T15!'B81T07'B1TO4, 16(R2) 


ODRVACT(R1) 
PC. EMPTYQ 
enn 


ULOFLG(R1) 


ATABIT(R1),. RPASC(RY) 


ORVSTACR1) 


2$ 
RO. WRT. RP 


sc4 

DRVACT(R1) 

1$ 

PC, GETREQ 
CI? 

2$ 

PC,C178 

sc4 

ULDFLG(R1) 

1$ 


ULDFLG(R1) 
DRVACT(R1) 


ATABIT(R1),. SRCHWT 


23 
PC, POPQUE 


#B1TO7, 16(R2) 


SAVEFG 
2$ 
PC, SVRH11 


ATABIT(R1), RPAS(RY) 


; INFORM USER OF ERROR 
;ORIVE IS IDLE 
;OUMP THE QUEUE 
; UNLOAD IN PROGRESS OR QUEUE? 
+ BR 1F NOT 
LEAR UNLOAD FLAG 
; CLEAR ATTENTION BIT 
;1S THE ORIVE UNSAFE ? 
;BR IF IT IS 
;RELEASE COMMAND 
;WRITE THE COMMAND INTO RPCS1 
;REGISTER INDEX 
;PARITY EXIT ADDRESS 
; CHECK FOR MORE DRIVES 
71S ORIVE IDLE? 
, YES--BRANCH 
>GET OPB POINTER 
;PROCESS THE PARITY ERROR 
; CONTINUE 
;PROCESS THE UNCORRECTABLE PARITY ERROR 
>; CHECK MORE DRIVES 
;"UNLOAD IN PROGRESS"? 
; BRANCH IF NO 
> CLEAR UNLOAD FLAG 
;SET DRIVE IDLE 
; DOING A SEARCH OPERATION FOR 
7AN 170 COMMAND? 
> BRANCH IF YES 
;REMOVE REQUEST FROM QUEUE 
+SET “DONE” BIT 
;SAVE THE REGISTERS? 
; BRANCH IF NO 
; YES--SAVE ALL OF THE RH11/RPO4/5/76 REG'S 
; CLEAR ATTENTION BIT 


PC, OPT + START A REQUEST 

sc4 + CHECK FOR MORE DRIVES 

R1,RPCSZ(R4) >SELECT ORIVE 

RPDOS1(R4Y). RPERRS ;SAVE THE FOUR REGISTERS THAT 
RPER1(R4Y), RPERRS+2 +WILL TELL US SOMETHING 
RPERZ(RY), RPERRS+4 

RPERS(R4Y), RPERRS+6 

RO. ORVINT ; INIT. THE STATE OF THE DRIVE 

1$ > TAKE ERROR EXIT 


SEQ 0162 


MD-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST 
DZR JAB. P11 


041016 
041022 


000137 


005737 


012616 


06-SEP-77 16: 20 


177777 
000010 


034502 
004000 


023420 


034406 


034406 
O34744 


034366 


042670 
140000 
042034 
042574 
034416 


035574 
037656 


034432 
000001 


034460 


000002 


041026 


000010 


034433 


034460 


000016 


034460 


000016 


034433 


034460 


H 13 
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SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


1$: 


2$: 
35: 


+ RPO4/S76 TIMER 


> CALL 


RPTMR: 


18: 


3S: 
4S: 


PC + RETURN 

(SP )+ ;POP PC OFF OF THE STACK 
sc8 ;PROCESS THE PARITY ERROR 
Ri + SETUP TO ADDRESS WCROS 
palais ;STOP THE TIMER . 


R1,RPCS2(R4) ; SELECT THE ORIVE 
ATABIT(R1),.RPAS(RY) ;CLEAR THE ATTENTION BIT 
#BIT1I1, (RY) DRIVE AVAILABLE ? 

1$ +BR IF AVAILABLE 


Ri 
+ eemmeetscheaeentnntne + START 10 SEC TIMER AGAIN 


3$ + EXIT 
DOP INT(R1) INITIALIZING THE DRIVE ? 
23 BR IF NOT 
DP INT(R1) ;CLEAR THE INIT INDICATOR 
RO, ORVINT +GO INIT THE DRIVE 

;+DUMMY PARITY ERROR RETURN 
DRVSTACR1) ;ORIVE ONLINE ? 
2$ BR IF YES -- START ORDER 
R2 ; QUEUE ENTRY FOR THE DRIVE 
3$ BR IF NOT 
PC, GETREQ GET OPB ADDRESS 
#BITIS'BIT1I4,16(R2) ; INFORM USER THAT DRIVE OFFLINE 
PC, SVRH11 >SAVE THE REGISTERS 
— EMPTY THE REQUEST QUEUE 
DPRQS(R1) +CLEAR THE PORT REQUEST INDICATOR 
PC, OPT START THE PENDING REQUEST 
sc4 PROCESS OTHER DRIVES 
ROUTINE 
#TIME,-(SP) *;ELASPED TIME IN MILLISECONDS ON THE STACK 
PC, RPTMR CALL RPO4-5/76 TIME ROUTINE 
ACTORV + CHECK “ACTORV & ACTSTR" 
4§ + 1F NON ZERO EXIT 
#1, ACTSTR ;SET “ACTSTR™ 

+SAVE RO - R5 
1 START WITH DRIVE 0 
TIMER (RS) + 1S THE TIMER RUNNING? 


2$ +BRANCH IF NO 
2(SP), TIMER(R3) >; COUNT THE INTERVAL 
23 >BR IF NO SOFTWARE TIMEOUT 


PC. STO :CALL SOFTWARE TIMEOUT ROUTINE 
3$ ;GO TO THE EXIT 
R1 ;MOVE TO NEXT DRIVE 
(R3)+ 
#8.,R1 ;OUT OF DRIVES? 
1$ ;BRANCH IF NO 
;RESTORE RO - RS 
ACTSTR ; ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
(SP )+, (SP) ;ADJUST THE STACK 


SEQ 0163 
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DZR JAB. P11 


041024 


000207 


010146 


06-SEP-77 16: 20 


034514 
000010 
041462 


034406 
O34416 


034426 
034500 


042670 
101000 
042034 
000040 
034356 
O344 34 


034744 
034356 


034426 
034500 


042670 
100400 
034356 
034434 
177777 


000010 
177777 


034426 
042516 


000016 
000010 


000016 


034460 


034500 


6 
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 
RTS PC + RETURN 
+ SOFTWARE TIMEOUT ROUTINE 


SNOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
; OR GREATER 


*CALL: STO 
; MOV #ORVNUM, R1 ;DORIVE NUMBER 
; JSR PC, STO + CALL 
; RETURN 
STO: MOV Ri, -(SP) SAVE R1 
MoV R3.-(SP) + SAVE 


R3 
MOV RPADR. RY GET ADDRESS OF “RPCS1” 
Mov R1,RPCS2(R4) +SELECT THE DRIVE 


JSR RO, RD. RP ;READ “ORIVE STATUS REG" 
RPOS1 
STOS 
TSTB (SP )+ 1S “ORY"=1? 
BMI ST02 7BR IF YES 
STO1: TSTB DP INTCR1) TRYING TO INTIALIZE THE DRIVE 7? 
BNE $T02 >BR IF YES 
TSTB OPRQS(R1) ; OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE ST02 ;BR IF YES 
MoV TRNSHT, RZ +PICKUP TRANSFER WAIT QUEUE 
CMP Ri, OTUW + TRANSFER UNDERWAY ON THIS DRIVE? 
BEQ 1$ +BRANCH IF YES 
JSR PC, GETREQ +GET DPB ADDRESS 
1S: BIS #B1T1IS'BITO9, 16(R2) >; SET THE ERROR FLAGS 
JSR PC, SVRH11 SAVE RH117RPO4/5/6 REGISTERS 
MoV #B1TOS.RPCS2(R4) 7 "INIT" THE MASS BUS 
CLRB DRVACT(R1) ;DORIVE IS IDOLE 
CLRB ULOFLG(R1) *+CLEAR THE UNLOAD FLAG 
CLR R1 START WITH DRIVE 0 
CLR R3 
2$: JSR RO, ORVINT 7 INIT. THIS DRIVE 
BR STOS PARITY ERROR RETURN 
TSTB DRVACT(R1) DRIVE IOLE BEFORE THE INIT. ? 
BEQ 4§ + YES--BRANCH 
MoV TRNSHT. R2 +GET TRANSFER WAIT QUEUE 
CMP DTUW. R1 ;WAS THERE 170 ON THIS ORIVE? 
BEQ 3$ + YES--BRANCH 
JSR PC, GETREQ ;GET THE DPB POINTER FROM QUEUE 
3$: BIS #BITIS'BITOS. 16(R2) > INFORM USER OF INIT. 
CLRB DRVACT(R1) +SET DRIVE ACTIVE TO IDLE 
CLRB Uc DFLG(R1) +NO UNLOAD 
Mov #-1, TIMER(R3)  ;STOP THE TIMER 
TST (R3)+ + UPDATE THE INDEX 
INC Ri ; INCREMENT THE ORIVE NUMBER 
CMP #8..R1 +LAST ORIVE BEEN CHECKED? 
BGT 2$ +NO--LOOP 
MOV #-1,OTUW +NO DATA TRANSFERS UNDERWAY 
CLR TRNSWT + CLEAR TRANSFER WAIT QUEUE 
JSR PC, CLRQUE *CLEAR ALL REQUEST QUEUES 
BR ST09 cEXIT 


SEQ 0164 





J 13 
MD-11- — ath sh B+ ea tetas AND READ/WRITE TEST  MACY11 30(1046) O6-SEP-77 16:22 PAGE 169 
DZR JAB. P 06-SEP-77 16: 20 0) 


013737 
011646 
013737 
062037 
013727 


000016 
034502 
034406 
O34416 
034500 
041462 


034406 
O34416 
177777 
037004 
034406 
034366 
177777 
042670 
140000 
177777 


O34416 
042670 


100004 
042574 
042034 


034512 


034514 
041506 


034460 


034460 


000016 
034460 


000016 


041630 
041506 


SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1. 


ST02: MoOvB RPAS(RY), RS READ ATTENTION REG 
BITé ATABITCRI).RS cS ahs nih FOR THIS ORIVE UP ? 


BNE STO3 + YES--BR 
TSTB OP INTC(R1) ; TRYING TO INTIALIZE THE ORIVE ? 
BNE ST06 7BR IF YES - ORIVE NOT ONLINE 
TSTB DPRQS(R1) ; OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE $T07 ;BR IF YES - NO RESPONSE TO REQUEST 
CMP R1,OTUW ‘DATA TRANSFER UNDERWAY FOR THIS DRIVE 
BNE STO1 ;BR IF NO 
JSR RO. RO. RP : YES--CHECK “ROY” 
RPCS1 
STos 
TSTB (SP )+ 
BPL ST01 ;BR IF “RDY"=0 
STO3: TSTB OP INTC(R1) ; INITIALIZING THE DRIVE 7? 
BNE 1$ ‘BR IF INIT PENDING 
TSTB DPRQS(R1) ;PORT REQUEST PENDING ? 
BEQ STO9 ;BR IF NOT 
1$: MoV #-1, TIMER(RI) + STOP THE TIMER 
BR STO09 ; EXIT 
STOS: - aca ;GO HANDLE THE PARITY ERROR 
STO6: CLRB DP INTCR1) ;CLEAR THE INITIALIZE INDICATOR 
CLRB ORVSTACR1) ;SET UNIT OFFLINE 
MoV #-1,TIMER(R3) ;STOP THE TIMER 
JSR PC, GETREQ ;GET THE OPB ADDRESS 
TST R2 ;REQUEST IN QUEUE ? 
BEQ STO9 ;BR IF NOT 
BIS #BiTiS'BiT14, ater ; INFORM THe USER DRIVE NOT AVAILABLE 
BR STOo8 FINISH 
STO?: MOV #-1, TIMER(R3) : STOP THE TIMER 
CLRB DPROS(RID ;CLEAR PORT REQUEST INDICATOR 
JSR PC, GETREQ +GET OPB ADDRESS 
TST R2 +; QUEUE ENTRY FOR DRIVE ? 
BEQ STO09 >BR IF NONE 
MoV @BITIS!BITZ, 16(R2) IN ORR USER OF PORT REQUEST ERROR 
STOB: JSR PC. EMPTYQ ;CLEAR THE QUEUE FOR THE DRIVE 
JSR PC, SVRH11 ; SAVE THE REGISTERS 
STO9: MOV (SP)+,R3 ;RESTORE R3 
MoV (SP)+,R1 ;RESTORE R1 
RTS PC ; RETURN 
;ROUTINE TO READ A RH11/7RPO4/576 REGISTER 
> CALL 
; JSR RO. RO. RP ;GO READ A REGISTER 
; INDEX ;REG. INDEX FROM BASE 
F ERRADR 7 ERROR ADDRESS--PROCESS ERROR STARTING 
; ;AT THIS ADDRESS 
F RETURN ;CONTENTS OF REG. IS ON THE STACK 
RD. RP: MOV MCPEMX.RD.RP2 ;MAX. RETRYS ALLOWED 
MOV (SP). -(SP) ;SAVE RO FOR RETURN 


MoV RPADR. RO. ADR FORM THE DESIRED ADDRESS 
ADD (RO)+,RD. ADR +USING THE BASE AND THE INDEX 
RD. RP1: MOV (PC) +, (PC)+ READ THE DESIRED REGISTER OF THE RPOY 


SEQ 0165 
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013737 
016637 
012616 
012037 


042716 
112637 
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041510 
034514 
000010 
010000 


172752 
020000 


042754 
034500 
040000 


040000 


034514 
041624 


034512 
000002 


041732 
000150 
041462 


177770 
041731 


000002 


041624 


042016 
041730 


041730 
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NGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0) 


RD. ADR: . 
RO. WROD: . 


28: BIS 


3$: . WORD 
RD. RP2: 
RD. RP3: MOV 

MoV 
RD. RPY: RTS 


0 
0 
RO. WROD. 2(SP) 


#B1T12. (SP )+ 
RD. RPS 


ORPADR. - (SP) 
+ teat 


1 

(SP)+, (RO)+ 

RD. RPY 

betes 

DTUW 

23 

#BITI4, (SP) 

23 

(SP)+ 

RD. RP3 

#B1T14., (SP) 
) 

RPADR, 3% 

3$ 

lalate 

(PC)+ 

3 

RD. RP1 

(RO). RO 


(SP)+, (SP) 
RO 


os 
w 
wo 


;ROUTINE TO WRITE A REGISTER 


> CALL 


ERRADR 


; INDEX 


WRT. RP: ons 


DATA, - (SP) 
RO. WRT. RP 


MCPEMX, WRT. R2 
2(SP). WRT. WO 
(SP )+, (SP) 

(RO)+, WRT. AD 


1$ 

#150, WRT. WO 
1$ 

RO. RD. RP 


(SP) 
# C7, (SP) 


(SP)+, WRT. WD+1 


sADORESS 1S FORMED HERE 

+REG. CONTENTS PUT HERE 
RETURN IT TO THE USER 

+PUT THE ADORESS ON s STACK 
+FORM THE ADDRESS OF RPCS2 
CHECK THE ‘NED’ BIT 

+BR IF DRIVE NON-EXISTENT 
READ RPCS1 


;D1IO MCPE SET? 
;BRANCH IF YES 
;ADJUST FOR RETURN 
sEXIT 


+ SAVE THE ADDRESS IN ‘SESCAPE' 
REPORT “MCPE" ERROR 

DATA TRANSFER UNDERWAY? 

+ NO--BRANCH 

+NO--"TRE"21? 

+ NO--BRANCH 

+ YES--CLEAN OFF THE STACK AND 
+; TAKE THE FATAL ERROR EXIT 
CLEAR “MCPE“ BY SENDING A “1" TO “TRE” 
POSITION BEFORE WRITING 

+ FORM ADDRESS OF HIGH BYTE 


*WRITE THE HIGH BYTE OF RPCS1 
;ADORESS STORAGE. 
EXCEEDED MAX. RETRYS 


BRANCH IF NO 
FATAL ERROR EXIT 


;DATA TO BE LOADED ON THE STACK 

+CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
; INDEX OF THE REGISTER TO BE LOADED 
;ADDRESS TO RETURN TO ON AN ERROR 

ERROR FREE RETURN 


+ MAX RETRYS ALLOWED 

+SAVE THE WORD TO WRITE 

;ADJUST THE STACK 

+GET INDEX OF REGISTER TO BE WRITTEN 
BRANCH IF NOT RPCS1 

+ 1S THE COMMAND FOR DATA TRANSFERS? 

+ YES--DON'T GET THE OLD Al6 & AI7. & PSEL 
+NO---COMBINE Al68A17. & PSEL WITH 

+ THE COMMAND BEFORE SENDING IT TO 

+ THE RH11/7RPO4 


SEQ 0166 
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DZ2R JAB. P 


063737 
012737 
000 


005720 
000200 


104412 


16: 2 
034514 


034514 
000010 
010000 


041462 


000010 
177776 
041462 


042754 


034514 
000010 
000014 


042114 
042114 


000200 


041462 


042114 
000002 


041732 


042002 


000022 
000010 


000046 
042114 
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1$: . WORD 


D 
WRT. R2: — 


WRT. R3: MOV 


WRT. RY: TST 
WRT. RS: RTS 


RPAOR,. WRT. AD 
nieces 


0 

RPAOR, - (SP) 
@RPCS2, (SP) 
ai he eee 


T.R3 
RO. RD. RP 


#B1TO3. (SP)+ 
WRT. RY 
~2(R0O), 18 
ori, OF 


oe oom 
(PC)+ 
3 


WRT. R1 
(SP)+ 
(RO), RO 
WRT. RS 
(RO)+ 
RO 


sFORM THE ADDRESS OF THE DISK REG. 
+LOAD THE DESIRED REG. 

;WORD TO WRITE GOES HERE 

+AODRESS 1S FORMED HERE 

PUT THE ADDRESS ON THE STACK 
+FORM THE ADDRESS OF RPCS2 

+CHECK THE ‘NED’ BIT 

+BR IF ORIVE NON-EXISTENT 

CHECK FOR PARITY ERROR ON WRITE 


BRANCH IF "“PAR=0" 

+PICKUP THE INDEX 

READ THE REG. 

7REG. INDEX 

+RETURN TO THIS ADDRESS ON ERROR 
+ SAVE THE ADDRESS IN ‘SESCAPE' 
+REPORT THE PARITY ON WRITE ERROR 
;DECREMENT THE ERROR COUNT 

RETRY COUNTER 

+ TRY AGAIN IF NOT FINISHED 

CLEAN OFF THE STACK 

+ TAKE THE “PARITY ON WRITE” ERROR EXIT 


sEXIT 
ADJUST FOR ERROR FREE EXIT 


;ROUTINE TO SAVE THE RH11/7RP04/75/6 REGISTERS AS PER DPB+14 


CALL 
; MOV 
; JSR 


SVRH11: 


15: CMP 


23: JSR 
35: . WORD 


4S: CMP 


#OPBNUM, RZ 
PC, SVRH11 


R2 

4§ 

RPADR, RY 
(R2),RPCSZ2(R4) 
14(R2),R3 

6$ 


3$ 
3%. #RPOB 


2$ ; 
#B1TO7, RPCS2(R4) 
2$ 


(R3)+ 
4§ 

RO. RD. RP 
0 


(SP)+, (R3)+ 
3%. #RPEC2 
6$ 

#2. 38 

1$ 


*DPB POINTER TO R2 
+ SAVE THE DRIVES REG'S 


+SAVE RO - RS 
+QUEUE ENTRY FOR THE DRIVE ? 
+BR IF NONE 


+SELECT DRIVE 
+GET THE ERROR TABLE POINTER 
EXIT IF NO ADDRESS 
+COUNTER & POINTER 
*REACHED THE BUFFER REGISTER ? 
BR IF NOT 
;"OR' SET ? 
7BR IF SET 
; STORE RPDB AS ZEROES 
+ CONTINUE 
+READ THE SELECTED REGISTER 
REGISTER INDEX 
ERROR RETURN ADDRESS 
+STORE THE REGISTER CONTENTS 
REACHED THE END ? 
‘BR IF YES 
+ INCREMENT THE REGISTER INDEX 
+ CONTINUE READING THE REGISTERS 


SEQ 0167 
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DZR JAB. P11 06-SEP-77 16: 20 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) SEQ 0168 
9082 042142 004737 036704 5$: JSR PC.CI? +PROCESS THE UNCORRECTABLE PARITY ERROR 
9083 042146 104413 6$: RESREG RESTORE RO - RS 
ree 042150 000207 RTS PC + RETURN 
9086 ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
9087 + CALL 
9088 ; MoV #ORVNUM, R1 DRIVE NUMBER TO Ri 
9089 ; JSR PC. SET. IE sSET “IE” 

9090 ; RETURN 
9091 
9092 042152 010446 SET. 1€: MOV R4, - (SP) + SAVE R 
9093 042154 013704 034514 MoV RPADR. RY + PICKUP “apoRESS OF RPCS1 
9094 042160 010164 000010 Mov Ri, RPCS2(R4) + SELECT ORIVE 
9095 042164 011446 MOV (RY), - (SP) +READ RPCS1 
9096 042166 052716 040000 BIS #B1T14, (SP) +SET THE “TRE” BIT OF THE WORD READ 
9097 042172 000316 SWAB (SP) *ADJUST FOR DATO 
9098 042174 112714 000100 MOVB #81 TO6, (RY) sSey “1g” 
9099 042200 032764 010000 000010 BIT WBITIZ,RPCSZ(R4) 71S “NED"=1? 
9100 042206 001002 BNE 1$ YES--CLEAR “TRE” 
9101 042210 005726 TST (SP )+ : CLEAN OFF THE STACK 
9102 042212 000402 BR 2$ 
9103 042214 112664 000001 1$: MOVB (SP)+, 1(R4) +CLEAR “TRE” 
910% 042220 012604 23: MOV (SP)+,R4 RESTORE R4 
nat 042222 000207 RTS PC RETURN TO CALLER 
9107 ; QUEUE COUNT 
9108 042224 000 QCNT: .BYTE O DRIVE O 
9109 042225 000 .BYTE OQ +ORIVE 1 
9110 042226 000 .BYTE 0O sORIVE 2 
9111 042227 000 .BYTE O sORIVE 3 
9112 042230 000 .BYTE O DRIVE 4 
9113 042231 000 .BYTE O DRIVE 5 
9114 042232 000 .BYTE O DRIVE 6 
aby 4 042233 000 .BYTE O DRIVE 7 
11 
ated ;QUEVE INPUT POINTERS 
11 
9119 042234 042316 QINPT: .WORD QODRVO DRIVE O 
9120 042236 042336 WORD QORV1 sDORIVE 1 
9121 042240 042356 . WORD QORV2 DRIVE 2 
9122 042242 042376 .WORD QDRV3 sDRIVE 3 
9123 042244 042416 .WORD QORV4 sORIVE 4 
9124 042246 042436 .WORD QORVS DRIVE 5 
9125 042250 042456 .WORD QODRV6 DRIVE 6 
+t 042252 042476 .WORD QDRV? DRIVE 7 
91 
es + QUEUE OUTPUT POINTERS 
9129 
9130 042254 042316 QOUTPT: .WORD QDRVO DRIVE G 
9131 042256 042336 . WORD QDRV1 DRIVE 1 
9132 042260 042356 .WORD QORVZ2 DRIVE 2 
9133 042262 042376 .WORD QORV3 sORIVE 3 
9134 042264 042416 .WORD QORV4 DRIVE 4 
9135 042266 042436 .WORD QORVS +ORIVE 5 
9136 042270 042456 .WORD QORV6 ‘DRIVE 6 
9137 042272 042476 .WORD QDRV7 ;DRIVE 7 
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9147 042314 042516 
9148 
9149 
9150 
9151 042316 000010 
9152 042336 000010 
9153 042356 0 


9191 042574 
9192 042600 
9193 042602 


105061 
006301 
016161 


042224 


000010 
042274 


000010 
042274 


042224 
042234 042254 
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NGLE/DUAL PORT RH11/RP04/5/6 ORIVER (REV 1 


QSTART: .WORD QORVO ;ORIVE O START ADORESS 
QSTOP: .WORD QDRVI ;ORIVE O STOP Vv 
.WORD QORV2Z ;STOP DRIVE 1--START DRIVE 2 
.WORD QORVI ;STOP ORIVE 2--START DRIVE 3 
WORD QDRV4 ;STOP ORIVE 3--START ORIVE 4 
.WORD QORVS ; STOP DRIVE 4--START DRIVE 5 
.WORD QORVE ;STOP DRIVE S--START ORIVE 6 
WORD QDRV7 ;STOP DRIVE 6--START DRIVE 7 
.WORD QTERM ; STOP DRIVE 7 
;DRIVE REQUEST QUEUES 
QORVO: . BLKW 10 
QORV1: . BLKW 10 
QORV2: . BLKW 10 
QORV3: .BLKW 10 
QDRV4: . BLKW 10 
QORVS: . BLKW 10 
QORV6: . BLKW 10 
QORV7: .BLKW 10 
QTERM=. 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
> CALL 
; JSR PC, CLRQUE 
CLRQUE: SAVREG ; SAVE RO - RS 
Mov RQCNT. RZ > ZERO THE QUEUE COUNTS 
CLR (R2)+ sORIVES 0 & 1 
CLR (R2Z)+ ;ORIVES 2 & 3 
CLR (R2)+ sORIVES 4 & 5 
CLR (R2)+ sDRIVES 6 & 7 
MOV #8.,R3 ;MOVE THE STARTING 
MoV #QSTART.R1 ;ADDRESS OF THE QUEUE INTO 
18: MoV (R1)4, (RZ)+ ; THE QUEUE INPUT POINTER 
DEC R3 
BNE 1$ 
MoV #8. ,.R3 ;MOVE THE STARTING ADDRESS 
Mov #QSTART.R1 ;OF THE QUEUE INTO THE 
23: Mov (R1)+, (RZ)+ ; QUEUE OUTPUT POINTER 
DEC 3 
BNE 23 
RESREG ;RESTORE RO - RS 
RTS PC 
SEMPTY THE QUEVE SPECIFIED BY R1 
> CALL 
Mov ORVNUM. R1 > DRIVE NUMBER TO R1 
; JSR PC, EMPTYQ 
EMPTYQ. ae ees >CLEAR NUMBER OF ITEMS IN QUEUE 
L 1 
Mov QINPT(R1). QOUTPT(R1) .SET OUTPUT QUEUE POINTER= 


1. 22 PAGE 173 


ADDRESS & ORIVE 1 START ADDRESS 


INPUT POINTER 


SEQ 0169 


= yo pal RPO4/5/6 MECHANICAL AND READ/WRITE TEST 
16: 20 SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


DZ2R JAB. 


Pil 06-SEP-77 1 


042610 
042612 


006201 
000207 


122761 


005002 


006201 
000207 


000010 


042274 


042224 


042254 


042224 
042254 
000002 
042254 


042274 


042224 


042234 
042276 


042234 


042254 
042276 


042254 


ASR 
RTS 


;ROUTINE TO PUT 
CALL 
RETURN1 


RETURNZ 
DRVQUE: ty 


’ 
é 
’ 
; JSR 
; 
’ 


1$: ASR 

23: RTS 

+ ROUTINE TO GET 
; CALL 

; MOV 


; JSR 
; RETURN 


GETREQ: CLR 
T 
18: ASL 


23: RTS 


B 14 
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R1 
PC 


A REQUEST IN QUEUE 


#ORVNUM, R1 ;DRIVE NUMBER 
#0PB.R2 ;ADDRESS OF PARAMETER BLOCK 
RO. ORVQUE GO PUT REQUEST IN QUEUE 


+RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE 


#10, QCNT(R1) + 1S QUEUE F 
23 7BR IF VES“ TAKE RETURNI 
— ; INCREMENT QUEUE COUNT 


RZ, @QINPT(R1) ;PUT THIS REQUEST IN QUEUE 
#2, QINPTC(R1) ; UPDATE THE QUEUE POINTER 
QINPT(R1),QSTOP(R1) ; TIME TO RESET THE POINTER 


1$ +BRANCH IF NO 
Sprinter + YES--RESET POINTER 


1 
(RO)+ + TAKE RETURN 2 
RO RETURN TO USER 


THE "DPB" ADDRESS OF NEXT REQUEST IN QUEUE 


#ORVNUM, R1 DRIVE NUMBER TO R1 

PC. GETREQ +GO GET THE REQUEST 
+RZ2="DPB" ADDRESS OF THE REQUEST 
+R2=0 IF NO REQUEST IN QUEUE 


R2 

QCNT(R1) + 1S THERE ANY REQUEST IN QUEUE? 

_ ;NO---BRANCH 
1 

 eaaethapdeete ;PICKUP “DPB” POINTER FOR THIS DRIVE 
1 

PC RETURN TO USER 


;ROUTINE TO “POP” THE REQUEST FROM QUEUE 


> CALL 
; MOV 


JSR 
; RETURN 
POPQUE: — 


18: ASR 


#ORVNUM, R1 DRIVE NUMBER TO R1 

PC, POPQUE ;CALL TO REMOVE REQUEST 
+RZ2=ADDRESS OF DPB REMOVED 

— ;DECREMENT QUEUE COUNT 


1 
QQOUTPT(R1),.R2 ;GET THE “DPB” POINTER 
#2, QOUTPT(R1) ; UPDATE THE QUEUE POINTER 
QOUTPT(R1), QSTOPCR1) ; TIME TO RESET THE POINTER? 
1$ NO--BRANCH TO EXIT 
aSTART«R). ,QOUTPT(R1) + YES--RESET THE POINTER 
1 


SEQ 0170 
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DZR JAB. Pi 


042752 


000207 


012037 


000066 
050122 
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042770 
001206 
001206 


001206 


047503 
020114 
044103 


052117 
027464 


032060 


052116 
053523 
051505 


051440 
035123 


000105 
044514 


044514 


020124 
047105 


043101 


051040 
027465 


000 


ROUTINE TO SAVE THE CONTENTS OF 


RTS PC 


+REPORTS AN ERROR DIRECTLY. 


CALL 


ES. SAV: 


SLASH: 
SYSTAT: 


UNTMSG: 
UNTOFF: 
UNTON: 


NOTPRS: 


NOTSAF: 
NOTRP: 


RPO4B: 


JSR ~ ye gaan 


MOV (RO)+, 18 
MOV SESCAPE, -(SP) 
CLR SESCAPE 


. 0 
MOV (SP )+, SESCAPE 
RO 


ASC!1Z MESSAGES 
~ASCIZ /R/ 


: .ASCIZ /FC/ 
: .ASCIZ /LC/ 
.ASCIZ /FC'Z 


~ASCIZ /LC'Z 
-ASCIZ Z1C/ 


: ,ASCIZ /FT/ 


.ASCIZ /LTZ 
.ASCIZ Z1T7 


| ,ASCIZ /FS/ 
: . ASCIZ 


: , ASCIZ /=/ 
: | ASCIZ <CR><LF>/CONTROL SWI TCHES=/ 


/LS/ 
.ASCIZ /PATZ 


. ASCIZ 


06-SEP-77 16:22 PAGE 175 


;RETURN TO USER 
‘SESCAPE’ WHEN THE DRIVER 


7; THE ERROR CALL 
; THE RETURN IS PAST THE ERROR CALL 


GET THE ERROR CALL 

+ SAVE THE ADDRESS IN ‘SESCAPE’ 
;CLEAR THE ESCAPE RETURN 

+; THE ERROR CALL IS MOVED HERE 
;RESTORE THE ESCAPE ADDRESS 


+ RETURN 


a/a 
.ASCIZ /UNIT STATUS: 7<CR><LF><LF> 


.ASCIZ /DRIVE/ 
.ASCIZ 7 OFFLINE/ 


~ASCIZ 7 ONLINE/ 
.ASCIZ 7 NOT PRESENT/Z 


.ASC!2 7 UNSAFE/ 


.ASCIZ @ NOT RPO4/5/60 


~ASCIZ /RPON/ 


SEQ 0171 


MD-11-D2R JA-B het ot MECHANICAL AND READ/WRITE TEST 
16: 20 ASCIZ MESSAGES 


DZR JAB. P11 


06-SEP-77 


053111 
051105 
052516 
o0c040 


051012 


045505 
051505 


020117 
050055 
045503 
044515 
051505 
046111 
020124 
051105 
042105 


042524 
020107 
020105 


040511 
041115 


052117 
040516 
042505 
042515 


042516 
047111 


040527 


020052 
051522 


041503 
044524 
040505 
047105 
020052 
051101 


051040 
042523 


040515 
020115 
052040 
005015 


RPOS: 


RPO: 
OR IVES: 


NONE: 
COMMA: 


TESTNG: 


SERIAL: 


MSG7: 


MSG10A: 


MSG10B: 


MSG11A: 


MSG118: 


MSG1 2A: 


. ASCIZ 
. ASCIZ 
. ASCIZ 


. ASCIZ 
. ASCIZ 
NOCLOK: . 


ASC1Z 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 
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/RPOS/ 
/RPO6/ 
<CRO<LF>/ORIVECS) TO BE TESTED / 


wed 
aA 
<CR><LF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 


<CCRO<LF><LF>/TESTING DRIVE 7 
7SERIAL NUMBER 7 


CCR><LF><LF>/ROTATIONAL SPEED TIMES/ 


<CR><LF><LF>/ONE CYLINDER SEEK TIMES/<CR><LF>/ & FORWARD/ 


<CR><LF>/ & REVERSE 


<CR><LF><LF>/ACCESS TIME MEASURMENT/<CR><LF>/ & FORWARD/ 


CCR><LF>/ & REVERSE/Z 


<CR><LF><LF>/MAXIMUM SEEK TIMES/<CR><LF>/ & FORWARD/ 


SEQ 0172 


MD-11-DZR JA-B Aa Fa > ea Yas AND READ/WRITE TEST 
16: 20 ASCIZ MESSAGES 


DZR JAB. P11 


06-SEP-7 


044524 


051440 


044515 
046412 
053101 


046511 


047516 
042515 
u0o 


051117 
000 


020052 
051522 


036516 
054101 
036507 


000123 
053517 
046440 
046525 

000 
053117 
020105 
052515 
000040 
051513 
042105 


020124 
900104 


MSG1 2B: 


MSGN IN: 
MSGMAX: 
MSGAVG: 


MSGOUS: 
MBELOW: 


MABOVE: 


MSGNUM: 


MSGNON: 
MSG. SP: 


. SBTTL 
EM1: 


EN2: 


ENS: 


EM4: 


EMS: 


. ASCIZ 


. ASCIZ 
. ASCIZ 
. ASCIZ 


. ASCIZ 
. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 
. ASCIZ 


—E 14 
MACY11 30(1046) O6-SEP-77 16:22 PAGE 177 


CCRO<LF>/ & REVERSE/ 


<CR><LFD>/MINE/ 
<CR><LF > /MAX=/ 
<CR><LF>/AVG=/ 


70 US/ 
7 BELOW THE MINIMUM OF 7 
7 ABOVE THE MAXIMUM OF 7 


7 SEEKS TIMED/ 


7 NOT TIMED/ 
, # +TWO (2) SPACES 


ERROR HEADER (EM) MESSAGES 


. ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


/RH11 INTERRUPT OCCURRED (RPAS = 


/UNEXPECTED ATTENTION OCCURRED/ 


/MASSBUS PARITY ERROR(MCPE=1)7 


Z\ASSBUS PARITY ERROR(PAR=1)/7 


ADDRESS PLUG CHANGE BIT SET/ 


0)/ 


SEQ 0173 


MD-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST 
16: 20 ERROR HEADER (EM) MESSAGES 


OZR JAB. P11 


06-SEP-77 


044103 
051105 


043117 
020105 


030527 


046106 
051117 


027461 
032457 


020101 
051101 
046111 


042440 
044440 
044515 
051505 


020113 
026461 
042526 
020127 
046511 
042524 


020113 
020122 


051057 
027465 
047522 


020114 
020105 
020113 
000122 


047111 
052440 


Eni0: 


EM11: 


EN12: 


EN13: 


EM17: 


EN20: 


EN23: 


EN24: 


EM41: 


EM46: 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


- ASCIZ 


 ASCIZ 


. ASCIZ 


. ASCIZ 
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“RH11/RPO4/5/6 FAILED TO RESPOND TO ADDRESSING" 


7DRIVE SELECTED 1S NOT ONLINE/ 


IMPROPER HEADER DATA/ 
7DATA COMPARE FAILUREZ 


7DISK ERROR IN TIMING TESTZ 


7CLOCK (KW11-P) OVERFLOW IN TIMING TEST/ 


/DISK ERROR DURING SEEK/ 


7SEEK NOT COMPLETE WITHIN 120 MS/ 


“RH117RP04/5/6 ERROR" 


7FATAL WRITE CHECK ERROR/ 


.SBTTL STATUSZERROR INDICATOR MESSAGES 


MSGB14: 


-ASCIZ 


ZOFFLINE OR UNSAFE ORIVE REQUESTED/ 


SEQ 0174 

















































DZR JAB. P11 


06-SEP-7 


7 16:2 


051105 
047105 
040523 


051101 


051105 


052106 
052040 
052125 
044124 
044522 


043117 


041517 


020105 
020105 
051505 


042101 
044522 
050505 
042105 


044523 
020124 
042506 


052111 


052111 
047522 
040527 
046511 
047440 
051511 
042526 


053524 


042520 
047117 


051117 


052503 


MD-11-OZRJA-B RPO4/5/6 ae. AND READ/WRITE TEST 


MSGB1 3: 


MSGB 12: 
MSGB11: 
MSGB10: 


MSGBO9: 


MSGBO8: 


MSGBOE: 


MSGBOS: 


MSGBO4: 


MSGBO3: 


. ASCIZ 


. ASCIZ 


-ASCIZ 


.ASCIZ 


. ASCIZ 


.ASCIZ 


 ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 
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STATUS/ERROR INDICATOR MESSAGES 






06-SEP-77 16:22 PAGE 179 


7UNLOADED DRIVE REQUESTED/ 


/PERSISTENT UNSAFE/ 


7PARITY ERROR OCCURRED/ 


7FATAL PARITY ERROR/ 


/SOFTWARE TIMEOUT ON THIS DRIVE 


/SOFTWARE TIMEOUT ON ANOTHER DRIVE 


“ERROR OCCURRED DURING 1/7G OPERATION" 


"ERROR OCCURRED DURING NON-170 OPERATION” 


UNSAFE OCCURRED/ 


/AUTOMATIC RECALIBRATE SEQUENCE OCCURPED/ 





MD-11-OZRJA-B RPO4/5/6 As a AND READ/WRITE TEST 


DZ2R JAB. P11 


06-SEP-77 


051122 
04 


041501 
042523 


042524 


051122 
051040 


020122 


052103 


000 
Af a 


052116 


050040 
040520 


041520 


042104 


020061 
020122 


042526 
051122 


020040 
020122 
051524 
020040 


020105 
047114 
051124 
020040 
051117 
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STATUS/ERROR INDICATOR MESSAGES 


MSGBO2: .ASC!Z /ORIVE HAS NOT RESPONDED TO PORT REQUEST/ 


MSGBO1: .ASCIZ /ORIVE HAS BECOME NON-EXISTENT/ 


.SBTTL DATA HEADER (OT) MESSAGES 


DH1: . ASCIZ 
DH2: . ASCIZ 
DH3: .ASCIZ 
DH4: -ASCIZ 


DH10: . ASCIZ 


DH11:  ASCIZ 


DH12: . ASCIZ 


ZERR PC 


ZERR PC 


/TEST 


/TEST 


/RPCS1 


ZOR IVE 


/TEST 


RPAS/ 


DRIVE  RPAS RPDS1 RPER1 RPERZ 


ERR PC ADDRESS DATA/ 


ERR PC ADDRESS GDDATA BDDATA/ 


ERR PC/ 


ERR PC/ 


ERR PC TST PC OR!IVE CYLNDR TRACK 


RPER3/ 


SECTOR 


aaa 


SEQ 0176 


MO-11-OZRJA-B RPOY/5/6 MECHANICAL AND RERD/WRITE TEST 


DZR JAB. P11 


06-SEP-77 16: 20 


042102 
052123 


050122 
052123 


041520 


020122 
042101 


020040 
020122 
051104 
020040 
020061 
051504 
050122 
020040 
020062 
051105 


020040 
020122 
051524 
020040 
020105 
047114 
051124 


020124 
040504 
051127 
020040 
051117 


020124 
051122 


020040 
030523 


030522 
042520 
051040 
020040 
020101 


DATA HEADER (OT) MESSAGES 


OH1 2A~A: 


OH1 SA: 


DH17: 


DH21: 


DH21A: 


DH23: 


DH23A: 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


 ASCIZ 


. ASCIZ 
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/GOCYL 


/GODAT 


/TEST 


/TEST 


/GDDAT 


/7TEST 


/RPER1 


GOTRK 


BODAT 


ERR PC 


ERR PC 


BODAT 


ERR PC 


RPERZ 


06-SEP-77 16:22 PAGE 181 


SEQ 0177 


GOSCTR BOCYL BDTRK BDSETR/ 


WROCNT 


DR IVE 


TST PC 


WROCNT 


DRIVE 


RPER3 


GDADR BDROR/ 


RPCS1 RPDS1 RPER1 RPERZ RPER3/ 
o 


DRIVE CYLNOR TRACK/ 


SECTOR/ 


CYLNDR RPCS1 RPCS2- RPDS1/ 


RPCA RPCC/ 


MD-11-OZRJA-B RPO4Y/5/6 o_o AND ee ee TEST 


DZ2R JAB. P11 


06-SEP-77 


001174 


020040 
000102 


001170 
001164 
034350 


001116 


001116 
041510 
001116 
034346 


041520 


020040 
020122 


020061 
051503 
050122 
020040 
020040 
040503 
050122 


030522 
042520 
051040 

000 
030522 
042520 
051040 
020040 
020103 
041120 
051040 


001170 
034352 


041506 
041732 


001164 
034350 


A HEADER (DOT) MESSAGES 
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06-SEP-77 


TST PC 


TST PC 


RPER3/ 


RPOS1 


RPER3/ 


RPER3 


DRIVE 


OR IVE 


RPCC 


RPWC 


16:22 PAGE 182 


SEQ 0178 


RPCS1 RPCS2 RPOSI/ 


RPCA RPDA/ 


RPBA RPOB/ 


SERRPC, SREG1, SREG3, RPERRS, RPERRS+2. RPERRS+4, RPERRS+6 


STMPO. SERRPC. RD. ADR. RD. WROD 
STMPO, SERRPC, WRT. ADR. WRT. WO. RD. WRO 


DH4 1: .ASCIZ /TEST ERR PC 
DH4 2: .ASCIZ /TEST ERR PC 
DH43A: .ASCIZ /RPER1 RPERZ 
DH4Y4A: .ASCIZ /RPCS1 RPCSZ2 
DH44B: .ASCIZ /RPER1 RPERZ 
DH4YSA: .ASCIZ /RPER1 RPERZ 
. EVEN 

.SBTTL DATA TABLE (OT) 

DT1: .WORD SERRPC. SREGS 
0T2: . WORD 

OT3: . WORD 

DT4: . WORD 

OTS: . WORD 


STMPO. SERRPC, SREG1. SREGS, RPERRS, RPERRS+2, RPERRS+4, RPERRS+6 


MD-11- “yc is ott vB MECHANICAL AND READ/WRITE TEST 
OZR JAB. P 06-SEP-77 0 


000001 
002 
000 


000001 
007 


16: 2 
034354 


001116 


001116 
004204 


001116 
004204 


004244 
001116 
001270 


004214 


004244 
004210 


001162 
001274 


001272 
001266 
001162 
001274 
001172 


001254 
004220 


001162 
001274 
001172 


001254 
004214 


004246 
001162 


001162 
004214 


001162 
004214 


004246 
004226 


DATA TABLE (OT) 


OT4SA: 
OT4SB: 


. WORD 
. WORD 
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SEQ 0179 


RH. ADR, SERRPC 

SREGZ, SERRPC 

STMPO, SERRPC, SREGO. CHKORV, CYL. DS, TRK. OS. SEC. OS 
CYL. OS, TRK. DS. SEC. OS, CYL. RD, TRK. RD, SEC. ROD 


STMPO. SERRPC, SREGO. CHKORV, CYL. DS. TRK. OS. SEC. DS 


SGODAT. SBODAT. SREG4. SGDADR. SBDADR 
STMPO, SERRPC, CHKORV. RP. REG. RP. REG+12. RP. REG+14. RP. REG+4O, RP. REG+42 


STMPO, SERRPC, SREGO, CHKORV, CYL. DS, TRK. DS 
SREG1, SBDDAT. SREGY, SREG! 
STMPO. SERRPC. CHKORV. CYL. OS. RP. REG. RP. REG+10, RP. REG+12 


RP. REG+14, RP. REG+4O. RP. REG+42. RP. REG+34. RP. REG+36 
STMPO. SERRPC. SREGO. CHKORV 
STMPO. SERRPC, SREGO. CHKORV, RP. REG. RP. REG+10. RP. REG+12 


STMPO, SERRPC, SREGO. CHKORV. RP. REG. RP. REG+10. RP. REG+12 


RP. REG+14, RP. REG+4O. RP. REG+42 

STMPO, SERRPC. SREGO. CHKORV. CYL. DS. TRK. OS. SEC. OS 

RP. REG. RP. REG+10. RP. REG+12. RP. REG+36. RP. REG+34. RP. REG+06 
RP. REG+14, RP. REG+4O, RP. REG+42 

STMPO, SERRPC, SREGO. CHKDRV. CYL. DS. TRK. DS. SEC. DS 

RP. REG. RP. REG+10. RP. REG+12. RP. REG+36. RP. REG+34. RP. REG+06 
RP. REG+14, RP. REG+4O. RP. REG+42, RP. REG+2, RP. REG+4. RP. REG+22 


.SBTTL DATA FORMAT (DF) TABLE 


OF 1: 


OF 2: 


1 +NUMBER OF DATA HEADERS 
2 +NUMBER OF WORDS IN DATA TABLE 
0 +ALL 3 NUMBERS ARE OCTAL 


1 
? 
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DZR JAB 


Pil 06-SEP-77 16: 20 


047545 


DATA FORMAT (OF) TABLE 
. BYTE 


. WORD 
. BYTE 
. BYTE 


. WORD 
. BYTE 
. BYTE 


. WORD 
. BYTE 
. BYTE 


OF 3: 


OF 4: 


OF 10: 


OF 11: 


DF 12: 


OF 13: 


DF 14: 


OF 17: 


OF 21: 


OF 22: 


DF 23: 


OoOn- OWe OF OC 


+2 DH'S TO BE TYPED 

+7 DATA WORDS FOLLOW THE 1ST DH 
;WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
+ADORESS OF 2ND DH 

+6 DATA WORDS FOLLOW THE 2ND DH 

+ALL WORDS ARE OCTAL 


+WORD 3 1S DECIMAL 


;WORD 3 1S DECIMAL 


+WORD 4 1S DECIMAL 


SEQ 0180 


MD-11-DZRJA-B RPOY/5S/6 MECHANICAL AND READ/WRITE TEST 


DZR JAB. P11 06-SEP-77 16: 20 
9810 047641 000 
9811 
9812 
9813 047642 000001 
9814 047644 004 
9815 047645 000 
9816 
9817 047646 000001 
9818 047650 007 
9819 047651 000 
9820 
9821 047652 000002 
9822 047654 007 
9823 047655 000 
9824 047656 046676 
9825 047660 003 
9826 047661 000 
9827 
9828 047662 000003 
9829 047664 007 
9830 047665 160 
9831 047666 046724 
9832 047670 006 
9833 047671 000 
9834 047672 047001 
9835 047674 003 
9836 047675 000 
9837 
9838 047676 000003 
9839 047700 007 
9840 047701 160 
9841 047702 046724 
9842 047704 
9843 047705 
9844 047706 047027 
9845 047710 006 
9846 047711 000 
9847 
9848 
9849 047712 
9850 
9851 047712 005015 046412 
9852 047720 042116 O41 
9853 047726 026461 055104 
9854 047734 026501 006502 
9855 047741 122 030120 
9856 047746 027465 02 
9857 047754 O44103 047101 
9858 047762 046101 023040 
9859 047770 026504 
9860 047776 052111 020105 
9861 050004 052123 005015 
9862 050012 005015 047524 
9863 050020 051505 020124 
9864 050026 053111 020105 
9 050034 042522 046120 


044501 
5 


DATA FORMAT (OF) 
. BYTE 


OF 41: 


OF 42: 


OF 43: 


DF 44: 


DF 4S: 


. EVEN 


BUFFER=. 


TITLE: 


LOADRV: 


. ASCII 


. ASCIZ 


. ASCII 


MACY11 3011046) 06-SEP-77 16:22 PAGE 185 
TABLE SEQ 0181 


Onn ON OF 


Oo 
xz 
. 
Ww 
D 


<CR><LF><LF>/MAINDEC-11-DZRJA-B/<CR><LF> 


@RPO4Y/5/6 MECHANICAL & READ-WRITE TESTO<CR><LF><LF> 


<CR><LF>/TO TEST DRIVE O REPLACE THE ‘XXDP* PACK ON DRIVE O/<CR><LF> 


tue ti RPO4/5/6 ta AND READ/WRITE TEST 


DZR JAB. P 


11 06-SEP-77 


020105 
054047 


047105 


052123 
051501 


005015 


000004 
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DATA FORMAT (OF) TABLE 


. ASCII 


O6-SEP-77 16:22 PAGE 186 
SEQ 0182 


7WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, AND RESTART/<CR><LF> 


.ASCIZ /THE PROGRAM/<CR><LF> 


NOLOAD: . ASCIZ 


. EVEN 


<CR><LF>/SYSTEM HAS 16K MEMORY. ‘XXDP' LOADER WILL BE OVERWRITTEN/<CR><L 


.SBTTL ROUTINE TO SIZE MEMORY 
+s RERAAAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAAS 


+ XCALL: 
;% JSR 
> | 


$SIZE: MoV 
MoV 
Mov 
Mov 


MoV SP. RO 
SET ne ee PS TO THE PRESENT PS 


28: SUB 


PC. $SIZE 


RO. -(SP) 

Ri. -(SP) 
@BERRVEC, - (SP) 
OERRVEC+2, -(SP) 


(SP )+, DFERRVEC +2 
82%. BERRVEC 
#20000. R1 

(R1) 


- SP 
4 DSERRVEC +2 


RETURN 
+¥SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


++SAVE RO ON THE STACK 
++SAVE R1 ON THE STACK 
++SAVE PRESENT ERROR VECTOR PS & PC 


+ SAVE THE STACK POINTER 


+PUSH OLD PSW AND PC ON STACK 
++SAVE THE PSW IN O#ERRVEC+2 
++SET FOR TIMEOUT 
;:FIRST ADORESS 
+: TEST THIS ADDRESS 
++ STEP TO NEXT ADDRESS 
+: TRY ANOTHER 
; + DROP BACK 
RESTORE THE STACK 
; ; RESTORE ERROR VECTOR 


8 15 
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DZR JAB. P11 06-SEP-77 16: 20 ROUTINE TO SIZE MEMORY 
9922 050364 012637 000004 Mov (SP)+, QBERRVEC 
9923 050370 010137 050402 MOV Ri, SLSTAD ++ LAST AODRESS 
9924 050374 012601 MoV (SP)4,R1 s+RESTORE Ri 
9925 050376 012600 Mov (SP )+,R0 +RESTORE RO 
9926 04 000207 RTS PC 
a 050402 SLSTAD: .WORD 0 ++ CONTAINS THE LAST ACORESS 
9929 js RAERAARARARAAAAARALARAAAAAAALAAAAAAAA AAA AAA AAA TAA A AAT TA TA 
9930 .SBTTL GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 
9931 + THIS ROUTINE 1S USED TO ENSURE THE BUS ADDRESS 
9932 ,OF THE RH11/RPO4 IS SETUP TO READ THE PROPER VALUE. 
9933 + 1T WILL ALSO READ THE ADDRESS FROM THE TTY IF 
9934 + REQUIRED. 
9935 oy AP THIS ROUTINE DESTROYS RO-R4 
9936 ; 
9937 ; 
9938 ; SR PC, @#GETADR 
Ate 4 ; RETURN 
9941 050404 005737 001226 GETADR: TST d#BUSADR ; INPUT FROM TTY REQUESTED? 
9942 050410 001427 BEQ 7$ ; NO--BRANCH 
9943 050412 005037 001226 CLR O#BUSADR + YES--CLEAR THE REQUEST FLAG 
9944 050416 012700 001366 1S: MOV #RH. ADR, RO +FIRST ADDRESS 
9945 050422 012703 050562 MOV #MRPCS1,R3 ;"RPCS1=" 
9946 050426 011004 MoV (RO). RY PRESENT RPCS1 ADDRESS 
9947 050430 004037 031516 JSR RO, d#GE TNUN +GET NEW RPCS1 
9948 050434 000402 BR 2$ + COMMA 
9949 050436 000767 BR 1$ + PERIOD 
9950 050440 000412 BR 5$ +DOUBLE PERIOD 
9951 050442 010420 28: MoV R4, (RO)+ + SAVE NEW RPCS1 
9952 050444 012703 050573 MOV #MRHVEC, RZ ; “RHVEC=" 
9953 050450 011004 MoV (RO). RY PRESENT RH11 VECTOR ADDRESS 
9954 050452 004037 031516 JSR RO. d#GE TNUM *GET NEW RHVEC 
9955 050456 000402 BR 3$ ; COMMA 
9956 050460 000756 BR 1$ +PERIOD 
9957 050462 000401 BR 5% + DOUBLE PERIOD 
9958 050464 010420 3$: MoV R4, (RO)+ + SAVE NEW — 
9959 050466 010410 5S: MOV R4, (RO) + SAVE INPUT 
9960 050470 013701 000004 7$: Mov OFERRVEC.R1 + SAVE THE = VECTOR 
9961 050474 012737 050530 000004 MoV #85, ORERRVEC + SETUP FOR TRAP 
9962 050502 005777 130660 TST @RH. ADR +; CHECK FOR RH11/RPO4 
9963 050506 010137 000004 MoV R1, P#ERRVEC RESTORE ERROR VECTOR 
9964 050512 012700 001366 MoV #RH. ADR. RO +FIRST ADDRESS OF NEW PARAMETERS 
9965 050516 012701 034514 Mov #RPAOR. R1 FIRST ADDRESS OF WHERE TO PUT THEN 
9966 050522 012021 MOV (RO)+, (R1ID+ BUS ADDRESS 
9967 050524 012021 MOV (RO)+, (RID+ ; VECTOR ADDRESS 
9968 050526 000207 RTS PC + RETURN 
9969 050530 010137 000004 8$: Mov Ri, P#ERRVEC RESTORE ERROR VECTOR 
9970 050534 0226 CMP (SP)+, (SP)+ +CLEAN OFF THE STACK 
9971 050536 104010 ERROR 10 REPORT THE ERROR 
9972 050540 005737 000042 TST 842 + 1S THERE A MONITOR? 
9973 050544 001724 BEQ 1$ +NO--GO ASK FOR ADDRESS 
9974 050546 005037 001232 CLR Os ORVSEL + YES--NO DRIVES SELECTED 
9975 050552 005037 017 542 CLR O#SEOPCT NO PASSES 
9976 050556 000137 017366 JMP a#SEOP GO TO END OF PROGRAM 


SEQ 0183 


C 15 
MO-11-DZRJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 188 
DZR JAB. P11 06-SEP-77 16: 20 GETADR - GET BUS ADDRESS AND VECTOR ADDRESS SEQ 0184 


9978 050562 005015 050122 051503 MRPCS1: .ASCIZ <CR<LF>/RPCSI=/ 

9979 050570 036461 000 

9980 050573 015 051012 053110 MRHVEC: .ASCIZ <CR<LF>/RHVEC=/ 
050600 505 000075 


9982 000001 . END 


D 15 
MD-11-DZR JA-B hart vp B 5° + ee AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 190 


DZR JAB. Pit 06-SEP-77 16: 20 SYMBOL TABLE SEQ 0185 
ABS = 000200 CHKORV 001254 OF 23 047632 ORVTYP 034376 EN2 044106 
ACL = 000040 Cll 036054 OF3 047546 ORY = 000200 EN20 044510 
ACTORV 034432 C13 036162 OF4 DSWR = 177570 EN23 044557 
ACTSTR O34433 ci4 036270 DF 41 047642 DTADPB 004164 EMN24 

ACU = 1 cis 036646 DF42 047646 OTE = 010000 EMS 044144 
ACE = 001000 Cl6 0 DF 43 047652 OTSY = 000200 EM 044201 
ATA =1 Ci? 036704 OF 44 047662 OTUW 034500 EM41 044646 
ATABIT 034502 C178 036732 DF4S 047676 OTOO = 000001 EM46 044672 
ATO = 000001 cig 037004 OH1 045523 DTO01 = 000002 EMS 044235 
ATi = 000002 CKSCTR 030010 DH10 045732 OTO2 = ERINDX 026246 
AT2 = 000004 CKSWR = 104407 DH11 045751 OTO3 = 000010 ERR = O% 

AT3 = 000010 CK. CHR 033766 DH12 045770 DTOY = 000020 ERRVEC= 000004 
aT = CK.DEC 033740 , DHiZA 86046057 DTOS = 000040 ERR. CT 001364 
ATS = 000040 CK. OIG 042 DHi3A 86046136 OT06 = 000100 ES. 042754 
ATé = 000100 CK. NUM 034226 DH17 046204 OT07 = 000200 EXiITO 006514 
AT? = 000200 CK. OCT 033712 DH2 045540 OTO8 = 000400 EXIT1 006672 
Aié = 0004 CLKSTA 001244 DH21 046302 OT1 047104 EX!IT10 012022 
Ai? == 001000 CLOSE 033632 DH21A 046360 DT10 047170 EXIT11 012242 
BAI = 000010 CLR = Q0004 DH23 046417 OT11 047174 ExiTi2 O1 
BITS 001424 CLRBUF 027742 DH23A 046505 DT12 7200 EXITI3 013444 
BiITO = 000001 CLRQUE 042516 DH3 045626 OT12A 047216 EXiT14 014162 
BiTOO = 000001 CLSWOS 033532 DH4 5663 OT13 047232 EXIT15 014700 
BiITO1 = 000002 CNTRLC 001224 DH41 046552 OT13A 047250 EXIT16 015276 
BiTOZ2 = 000004 id 043267 DH42 046610 OT17 047262 EXiT17 015716 
BITO3 = 000010 COUNT 027120 DH43A 046676 DT2 047110 EXIT2 007110 
B1TOY = 000020 CR = 000015 DH44A 8046724 DT21 047302 EXIT2Z0 016436 
BITOS = 000040 CxLF = 000200 OH44B8 8 047001 OT2Z1A 047316 EXiT21 017214 
BITO6 = 000100 CSF = 000002 DH4¥SA 8047027 0T23 047326 EXIT22 017364 
BiTO7 = 000200 csu— = 000010 DIGB = 000004 DT23A 8 047344 EXIT3 007304 
BITO8 = 000400 CYL.0S 001270 DISPLA 001142 DT3 047126 EXITY 007672 
BITO9 = 001000 CYL.RD 001262 DISPRE 000174 OT4 047136 EXITS 010072 
BiTi = 000002 C.SWR 001220 DLT = 100000 OT41 047356 EXIT6 010336 
BIT10 = 002000 DATCMP 030450 DL64 = 000020 DT42 047366 EXIT? 010716 
BITi1 = 004000 DOCK = 100000 OMD == 000001 DT43 047404 ExT1 = 000001 
BI1T12 = 010000 DCL = 000100 DORT! 027052 DT4¥3A 047422 ExT10 = 000010 
81T13 = 020000 ocuU == 000001 oPB.A 004104 DOT44 047430 EXxT2 = 000002 
BIT14 = 040000 DDISP = 177570 OP8.B 004124 OT44A 047446 EXxT20 = 000020 
BiT15 = 100000 DECSEC 027660 OPB.C = 004144 DT44B 047462 EXT4 = QOO0004 
BIT2 = DECSK 007066 DPINT O34406 DT4S 047470 EXT4O = 000040 
BIT3 = 000010 DELTA 001350 DPR = 000400 DT45A 047506 FC 001510 
BITY = 000020 DE1 000040 DPRQS  O34416 DT45B 047522 FEN = 000200 
BITS = OO00040 OFF20 = 000002 DRIVES 043231 DTS 047150 FER = 000020 
BiT6é = 000100 DFLT 001664 = 004000 DVA = 004000 FILBUF 027704 
BIT? = 000200 OF 1 047536 DRVACT 034356 ECH = 000100 FILRAN 030766 
BIT8 = 000400 DF 10 047556 DRVCAL 025524 Ec! = 004000 FMT22 = 010000 
BIT9 = 001000 OF 11 047562 DRVCLR= 000111 EMPTYQ 042574 FS 001524 
BPTVEC= 000014 DF12 047566 ORVCL1 025544 EMTVEC= 000030 FT 001516 
BUFFER= 047712 DF 13 047576 DRVINT 034744 EM1 044043 Fi = 000002 
BUSADR 001226 OF 14 047606 ORVMSK 001256 EN10 044271 F2 = 000004 
BYPASS 001252 DF 17 047612 ORVOK 006122 EM11 O44 347 F3 = 000010 
CALL.A 025032 DF2 047542 ORVQUE 042614 EM12 044404 Fu = 000020 


; FS 0 
CALL.C 025334 OF 22 047626 DRVSTA 034366 EM17 044456 GETADR O50404 


E 15 
MD-11-DZ2RJA-B RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) 06-SEP-77 16:22 PAGE 191 


DZR JAB. Pil 06-SEP-77 16: 20 SYMBOL TABLE SEQ 0186 
GETNUM 031516 MBELOW 043732 MSGi28 043663 PATIO 003604 PRS = 000240 
GETREG= 000141 MCLK = 000002 MSG? 043420 PAT11 003644 PR6 = 000 
GETREQ 042670 MCPE = 020000 MSTCK = 000010 PAT12 003704 PR7 = 

GETSWR 031424 MCPEMX 034512 MWR == 000040 PATi3 003744 PS = 177776 
GO = 1 = 001000 MXDLTA 034524 PATI4 PSEL = 

GRv = 000010 MINX = 001 PAT1S O04044 PSU ss 1 
GTSWR = 104406 MNOLTA 034526 MXLACT 034522 PAT2 003204 SW = 177776 
GTTST1 032012 = 020000 MXSTAL 001362 PAT3 003244 PTRNIS 002742 
GTTST2 032076 MOL = 010000 MXWNOW 034530 PATY 003304 PWRVEC= 000024 
GTTST3 032440 MPE = 000400 NBA = 100000 PATS 003344 042224 
GTTST4 032442 MRD = 000020 NC1 001532 PAT6 003404 QORVO 042316 
GTTSTS 032552 MRHVEC 050573 NC2 001534 PAT? 003444 QORV1 

GTTST6 032612 MRPCS1 050562 NED = 010000 PATS 003504 QORVZ2 042356 
GT.PRM 031654 MSE = NEM = 004000 PATS 003544 QORV3 042376 
GT.PR1 031656 MSGAVG 043716 NHS = 002000 PGE = 002000 QORVY 042416 
GT.PR2 032006 MSGBO1 045465 NOCLOK 043271 PGM = 001000 QORVS 042436 
HCE = 000200 MSGBO2 045415 NOLOAD 050210 PIP = 02 QORVG 042456 
HC! = 002000 MSGBO3 045345 NONE 043262 PIRQ = 177772 QORV7 042476 
HCRC = 000400 MSGBO4Y 045325 NOOP = 000101 PIRQVE= 000240 QINPT 042234 
HT = 000011 MSGBOS 045255 NOTPRS 043147 KB 001402 QOUTPT 042254 
\AE = 002000 MSGBO6 045211 NOTRP 043174 PKC 001404 QSTART 042274 
IC 001514 MSGBO8 045147 NOTSAF 043164 PKCS 001400 QSTOP 042276 
1€ = 000100 MSGBO9 045110 ocYL = 100000 PKV 001374 QTERM = 042516 
1LF = =: 000001 MSGB10 045065 OFFSET= 000115 PLU = 020000 R 031242 
wR = MSGB11 045037 OFREV = 000200 POPQUE 042712 RANCK 031010 
INCCYL 027630 MSGB1Z2 045015 OF100 = 000004 PRM 001504 RANPAT 031206 
INCSK 007024 MsGB13 044764 OF200 = 000010 PRMLMT 001606 RAW = 000020 
INCTRK 027600 MSGB14 044722 OF25 = 000001 PRMMSG 001636 ROCHR = 104410 
1\OTVEC= 000020 MSGFCP 043010 OF400 = 000020 PRMPT 001536 ROLIN = 104411 
IR = 000 MSGLCP 043014 OFSO = 000002 PRMO 002330 ROY = 000200 
ISR 037376 MSGMAX 043707 OF800 = 000040 PRM1 002344 RD. ADR 041506 
iT 001522 MSGMIN 043700 OPE = 020000 PRM10 «002544 RO.RP 041462 
ITEM41 OO4S4E MSGNON 044025 opi = 020000 PRM11 002564 RO. RP1 041504 
xe = O04 MSGNUM 044010 OPNFLG 001240 PRM12 002606 RD. RP2 041630 
LA 037240 MSG.CS 043050 OPNPAT 033220 PRM13 002622 RO. RP3 041634 
LACNT  O34444 MSG.EQ 043046 OPNPRMN 033016 PRM14 002636 RD. RPY 041640 
LC 001512 MSG.FC 043002 OPNTST 032644 PRM15 002652 RD.WRD 041510 
LOCMD 024766 MSG.FS 043034 OPNWOS 033342 PRM16 002666 READ = 000171 
LF = 000012 MSG.FT 043023 OPN.CT 032650 PRM17 002700 READHD= 000173 
LKS 001412 MSG. 1C 043020 OPN. Ni 033554 PRNZ 002372 READIN= 000121 
LKV 001406 MSG. 1T 043031 OPN.N2 033560 PRN2Z0 002712 RECAL = 000107 
LOAORVY 050012 MSG.LC 043005 OPN. X1 033572 PRMN21 002744 RELEAS= 000113 
LOOFLT 024352 MSG.LS 043037 OPN. X2 033576 PRN22 002760 RESREG= 104413 
LODPRM 024610 MSG.LT 043026 OPN.1 032654 PRM3 002414 RESTAR 006102 
LOP.CK 026206 MSG.PA 043042 OPN.2 032676 PRMY 002436 RESVEC= 000010 
LPB 001422 MSG.R 043000 OPT 035574 PRMS 002469 RHVEC 001370 
LPS 001420 MSG. SP O44040 OR = 000200 PRM6 002502 RH. ADR 001366 
LPTAVL 001230 MSGOUS 043725 PACK = 000123 PRN7 002524 RMR = 000004 
LP. AVL 024032 MSG1OA 043452 PAR = 000010 PPO = =: 00000 RPADR  O34514 
LS 001526 MSG10B 043521 PAT 001530 PRi = 000040 RPAS = 000016 
LST = 002000 MSG11A 043536 PAT.PT 003044 PR2 = 000100 RPBA = OO0004 
LT 001520 MSG11B 043604 PATO 003104 PR3 = 000140 RPCA = 000034 


MABOVE 043761 MSG12A 043621 PATI 003144 PRY 000200 RPCC 000036 


MD-11-DZRJA-B RPO4/S/6 MECHANICAL 
DZR JAB. P11 06-SEP-77 16: 20 


RPCS1 = 000000 K = 
RPCS2 = 000010 SEEKFG 
RPDR = 000006 SEKCNT 
RPDB = 000022 SEKTMR 
RPOS1 = 000012 SELORV= 
RPOT = 000026 SERIAL 
RPEC1 = 000044 SE TBUF 
RPECZ = OO0046 SE TFOR= 
RPERRS O34346 SE TVEC 
RPER1 = 000014 SET. IE 
RPERZ = 000040 SKI = 
RPERZ = 000042 SLASH 
RPINIT 034532 SRCHNWT 
RPLA = 000020 SRCHOO 
RPMR = 000024 SRTORV 
RPOF = 000032 SRTINT 
RPSN = 000030 SRVCLK 
RPT 001506 STACK = 
RPTMR 040734 STALL 
RPVEC 034516 STALLO 
RPwC 606= «000002 STALL1 
RP.REG 004204 STALL2 
RPOY 035302 STALL3 
RPO“B 043212 START 
RPOS 043217 STARTI 
RPO6 043224 START2Z 
RSTRT1 O06046 SiART 
RSTRTZ2 006072 STARTY 
RTC = 000117 STATBL 
R6 =%000006 STKLMT= 
R7 =%000007 STO 
SAVCSH 001222 STO1 
SAVEFG 034454 ST02 
SAVREG= 104412 STO3 
sc 037602 STOS 
SCTRWC= 177400 ST06 
Sci = 000100 ST07 
scio = 001000 STOos 
scii 0404 34 sTo9 
$c12 040524 STRTMR 
$ci3 040574 STRTIA 
sc2 = 000200 STRT2A 
$c20 = 002000 ST. CLK 
sc3 037652 ST. LCL 
Ssc4 037656 ST. PCL 
scs 037670 SVADR 
Sc6 040070 SVRH11 
SC6A 040200 SVSTAT 
SC7 040326 

scs 0404 SWREG 
SEARCH= 000131 SWO = 
SEC.0S 001272 SWOO = 


SEC.RD 001266 SWO01 


F 15 
AND READ/WRITE TEST MACY11 30(1046) 06-SEP-77 16:22 PAGE 192 
SYMBOL TABLE 


000002 


“ 
x 
aot 
te 
ot 0 Ot OF OF Ot Ot Ot Ok Oe Oe Oe Oe Oe Oe Oe Ok ee ee te ee oe 


034460 
001314 
001332 


TIM. UP 001276 
TITLE 047712 
TKVEC = 000060 
TPB O0141€ 
TPS 001414 
TPVEC = 000064 
TRAP VE= 


TYPOC = 104402 
TYPON = 104404 
= 104403 


T7A 002774 


ad 
oO 
= 
S 
nun 


021324 


SEQ 0187 


G 15 
MD-11-DZRJA-B RPO4Y/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30(1046) O6-SEP-77 16:22 PAGE 193 


DZR JAB. P11 06-SEP-77 16: 20 SYMBOL TABLE SEQ 0188 

$0820 023254 SGET42 017604 SQUES 001214 SSVLAD 022774 STPS 001150 

SOECVL 023434 SGTSWR 021722 SRAND 023510 $SvPC = 000200 STRAP 023134 

SDiV 023612 = SROCHR 022174 SSWR = 167000 STRAPZ2 023156 
017624 SHINUM 023606 SROLIN 022264 SSWRMK= STRP = 14 

S$OTBL 021314 SICNT 001104 $ROSZ = 000024 STIMES 001204 STRPAD 023170 

SE 017614 SINTAG 001135 SREGAD 001160 STKB 001146 STSTNM 001102 

SENDCT 017550 SITEMB 001114 SREGO 001162 STKCNT 021334 STTYIN 022520 

SENULL 017630 SLF 001216 SREG1 001164 STKINT 021344 STYPOS 021110 

SEOP 017366 023610 SREG2 001166 STKQEN= 021344 STYPE 020442 

SEOPCT 017542 SLPADR 001106 SREG3 001170 STKQIN 021336 STYPEC 020612 

SERFLG 001103 SLPERR 001110 SREGY 001172 STKQOU 021340 STYPEX 

SERMAX 001115 SLSTAD 050402 SREGS 001174 STKQSR 021342 STYPOC 020706 

SERROR 017634 SMNEW 022574 SRESRE 023076 STKS 001144 STYPON 020722 

SERRPC 001116 022563 SRTNAD 017626 STKSRV 021414 STYPOS 

SERRTB 004306 SMXCNT 023036 SSAVRE 023040 STMPO 001176 S$XTSTR 022620 

SERTTL 001112 001154 $$820 023220 S$TMP1 001200 $$GET4= 

SESCAP 001206 SNUTST= 000001 SSCOPE 022606 STMP2 - 001202 SOFILL 021105 

SFILLC 001156 SOCNT 021104 SSETUP= 000147 STN = 000023 = 

SFILLS 001155 SOMODE 021106 $SIZE 050306 STNPWR 023364 

SGODAOR 001120 SOVER 023022 SSTUP = 177777 $TPB 001152 

S$GDDAT 001124 SPASS 601100 SSUPRS 023450 STPFLG 001157 


. ABS. 050604 000 


ERRORS DETECTED: 0 


OSKW: OZR JAB, OSKW: OZR JAB/SOL=OSKW: SYSMAC. SML, DSKM: DZ2R JAB. 010. OSKM: OZR JAB. P11 
RUN-TIME: 24 34 .9 SECONDS 

RUN-TIME RATIO: 452759=7.5 

CORE USED: 52K (103 PAGES) 


ACO 


